他那个判断是错误的,要这样才对:
Dim t As WinForm.TextBox = e.Form.Controls("TextBox1")Dim dr As Row = Tables("表A").CurrentIf t.Value IsNot Nothing Then dr("客户名称") = t.ValueEnd If