打开之前，先判断
Dim fdr As DataRow = DataTables("某表").find("客户名称 = '" & Tables("入库单").Current("客户名称") & "'")
If fdr IsNot Nothing Then
'窗口打开
Else
msgbox("不存在")
End If
加好友 
发短信
Post By：2017/8/30 9:11:00 [显示全部帖子]
