新增按钮加入代码
If Datatables("表A").Find("合同编号 = '" & e.Form.Controls("TextBox1").Text & "'") is Nothing Then
Datatables("表A").AddNew
Else
msgbox("编号存在")
End If
加好友 
发短信
Post By：2014/6/25 10:55:00 [只看该作者]
