- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 总是出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55937)
-- 发布时间：2014/8/26 14:05:00
-- 总是出错
当前表中若没记录，执行下列代码总是出错
Dim ss As String
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
此主题相关图片如下：qq截图20140826140350.jpg
此主题相关图片如下：qq截图20140826140350.jpg-- 发布时间：2014/8/26 14:06:00
--
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