With Tables("客户表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '
dim r as row = Tables("客户表").AddNew()
r("客户id") = Tables("客户表").compute("max(客户id)") + 1
End If
End With
加好友 
发短信
Post By：2020/6/15 23:09:00 [显示全部帖子]
