老师你好：我在窗口界面菜单中写了下面代码，在执行时，在招标信息中没有这个项目编号的则打开其他项目信息，有的是对的，主要是下面红色部分代码执行不了，为什么？
Select Case e.StripItem.Name
Case "fill"
If Tables("投标资料汇总台帐_table1").Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim wz As Integer
Dim fdr As DataRow
fdr = DataTables("招标信息").Find("[项目编号] = '" & Tables("投标资料汇总台帐_table1").Current("项目编号") & "'")
If fdr IsNot Nothing Then
wz = Tables("招标信息").FindRow(fdr)
If wz >= 0 Then
Tables("招标信息").Position = wz
Forms("招标信息录入").Open()
End If
Else
MessageBox.Show("此项目在""招标信息""表中未登记,请在招标信息中完善相关信息!")
Return
End If
加好友 
发短信
Post By：2018/7/12 14:25:00 [只看该作者]
