Dim fdr = DataTables("员工").Find("姓名 = '" & e.sender.Text & "'")
If fdr Is Nothing Then
msgbox("不存在")
e.cancel = True
Else
Tables("表A").AddNew
End If
加好友 
发短信
Post By：2018/3/30 10:06:00 [显示全部帖子]
