加入判断
Dim dr As DataRow = DataTables("灭火器表").Find("编码 ='" & sbid & "'")
If dr IsNot Nothing Then
'原来代码
Else
msgbox("没找到")
End If
加好友 
发短信
Post By：2019/1/16 21:08:00 [显示全部帖子]
