Dim r As Row = Tables("表B").Current.Clone()r("第四列") = Nothingr("第五列") = Nothing
或者
Dim str() As String = {"第四列","第五列"}
Dim r As Row = Tables("表B").Current.Clone()For Each n As String In str r(n) = Nothingnext
加好友 
发短信
Post By：2018/4/24 18:07:00 [显示全部帖子]
