应该是没有问题的,试试这样
Dim d1 As String = e.Form.Controls("用户IP地址").TextDim d2 As String = e.Form.Controls("资料用户名称").Text
If d1 > "" AndAlso d2 = "" Then Tables("互联网客户数据表").addnew() End If
如果还有错,你看看是不是你的两个控件绑定了列?
http://www.foxtable.com/help/topics/2436.htm