主题：[求助]事件代码

1、暂时这样处理，文本框的TextChanged的事件：（如果狐爸能在系统中解决更好）

 

Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow
dr = DataTables("订单").Find("公司名称 = '" & tx.text & "'")
If dr isnot Nothing
    messagebox.show("有重复的值,请更正!","提示")
    e.cancel =  True
End If

 

2、合计：参见帮助文件 Sum 吧，很简单的。

那就这样：  放在leave事件中

Dim tx As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Dim dr As DataRow
dr = DataTables("订单").Find("公司名称 = '" & tx.text & "'")
If dr isnot Nothing
    If dr("公司名称") = "" & tx.text & ""
        messagebox.show("有重复的值,请更正!","提示")
        tx.value =""
        Forms("窗口1").Controls("TextBox1").Select()
    End If
Else
    Tables("订单").current("公司名称")  = Forms("窗口1").Controls("TextBox1").text   
End If

 

要取消绑定·······

 

 

不是有个初始值嘛？  enter、 leave 、mousemove 等N个事件中都可以设置代码给他赋值呀。。。。想叫它非空白那也难？