Dim ss As String
if Tables("mm_Table1").Current isnot nothing then
ss=Tables("mm_Table1").Current("身份证号")
Dim Result As DialogResult
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="select * From {hkxx} Where 身份证号 = '" & ss & "'"
If Tables("mm_table1").Position > 0 Then
MessageBox.Show("当前表没有记录")
e.Cancel = True
Else
result = MessageBox.Show("是否修改当前数据?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Forms("hkb").Open()
End If
end if
End If
加好友 
发短信
Post By：2014/8/26 14:06:00 [显示全部帖子]
