加入msgbox测试，看分别弹出什么
Select Case e.StripItem.Name
Case "fill"
msgbox(1)
If Tables("投标资料汇总台帐_table1").Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
msgbox(2)
Dim wz As Integer
Dim fdr As DataRow
fdr = DataTables("招标信息").Find("[项目编号] = '" & Tables("投标资料汇总台帐_table1").Current("项目编号") & "'")
If fdr IsNot Nothing Then
msgbox(3)
wz = Tables("招标信息").FindRow(fdr)
If wz >= 0 Then
msgbox(4)
Tables("招标信息").Position = wz
Forms("招标信息录入").Open()
End If
Else
msgbox(5)
MessageBox.Show("此项目在""招标信息""表中未登记,请在招标信息中完善相关信息!")
Return
End If
加好友 
发短信
Post By：2018/7/12 14:51:00 [显示全部帖子]
