这样严谨一些：
if e.Form.Controls("文本框名称").Value IsNot Nothing Then
Dim r As Row = Tables("发货单").AddNew()
r("单号") = e.Form.Controls("文本框名称").Value
End IF
加好友 
发短信
Post By：2012/6/30 8:03:00 [显示全部帖子]
