JUNさん、こんにちは。

＞現在はＰＢ7.0.0を使用しています  ※顧客が買ったＰＰのため
＞設定としては
＞編集様式をエディットマスク(#,###)にして表示を#,##0にしています。
＞ItemFocusChangedイベントやGetFocusイベントにSelectText関数を記述しています。
＞この仕様で一桁の入力はできるのですが0表示がされません。

下記のアドレスでアシストへの問合せが検索できます。
http://www.ashisuto.co.jp/kka/pstw/

同じ内容の質問が見つかると思われますので、
「エディットマスク」などで検索してください。ほしい答えがあることでしょう（笑）

これ以外の方法として、僕が取っている方法を紹介しましょう。
（まぁ、最初の３の方法なんですけどね。）
１．DWのカラムはエディットにしておく。
２．表示書式は、[#,##0;#,##0;0;#]を設定。
３．入力条件側の式を Integer(gettext()) >= 0 に設定。
　（ここは、別にこれでなくてもOK。仕様にあわせて設定します。ユーザ関数でもいいかも）
４．ItemErroerイベントに以下のスクリプトを記述。

String col_nm,data_type
Long wrk
integer null_num

SetNull(null_num)
col_nm = dwo.Name
data_type = dwo.ColType

//空白以外の場合、値を却下
IF Trim(data) <> \"\" THEN
IF ISNumber(data) THEN
RETURN 0
ELSE
g_msg.uf_msgbox(\"数字以外の文字が入力されています\",\"E\")
RETURN 1
END IF
END IF

//空白のときは、NULLをセット
This.SetItem(row,col_nm,null_num)
RETURN 3

入力としては英数字を入力可能として、0もNullも入力できるようにしています。