本人正在做一个二进制、十进制互相转换的练习，如何限制文本框只能输入0或1，谢谢指教。

相关事件中写代码

能否具体一点，大侠

TEXT1 interactivechange 事件

n=VAL(thisform.text1.value)
IF MOD(n,10)>1
    thisform.text1.value=LEFT(thisform.text1.value,LEN(ALLTRIM(thisform.text1.value))-1)
    thisform.text1.SelStart=LEN(ALLTRIM(thisform.text1.value))
ENDIF

在控件的 InterActiveChange 事件里写代码了，如果测试到是你不想让出现的数字即可做出响应，如提示或修改成其他内容等都可以。

文本框的valid事件
If This.Value =0 Or This.Value =1
    Return .T.
Else
    =Messagebox("输入数据错误，只能输入1和0！")
    Return 0
Endif


奇怪的是这样写

*!*    If This.Value != 1 Or  This.Value != 0
*!*        =Messagebox("输入数据错误，只能输入1和0！")
*!*        Return .F.
*!*    Else
*!*        Return .T.
*!*    Endif
却通不过

这样可通的过：
    if !This.Value= 1 and  !This.Value= 0
         =Messagebox("输入数据错误，只能输入1和0！")
    Else
         Return .F.
    Endif
、

** text.Init
this.Value = 0

** text.Valid
RETURN INLIST(this.Value,0,1)

text1.Valid()

 IF !this.Value$'1.0'
   MESSAGEBOX('本栏目只能输入“1”或“0”！！！',48,'系统警告：')
   RETURN 0
 ENDIF

题主的意思好像不是说文本框里只能输入一个0或1，而是只允许0和1的组合，不允许2～9的数字录入，但长度不仅限于一位。