| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 查找代码出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121749) |
| -- 作者：ZJZK2018 -- 发布时间：2018/7/12 14:25:00 -- 查找代码出错 老师你好： 我在窗口界面菜单中写了下面代码，在执行时，在招标信息中没有这个项目编号的则打开其他项目信息，有的是对的，主要是下面红色部分代码执行不了，为什么？ 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 |
| -- 作者：有点甜 -- 发布时间：2018/7/12 14:51:00 -- 加入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 |
| -- 作者：ZJZK2018 -- 发布时间：2018/7/12 15:04:00 -- 有点甜老师： 我点击了一个在招标信息表中没有的项目编号，但到“msgbox(4)”就打开了 Forms("招标信息录入").Open()，招标信息是另外一个项目编号，按理没有找到这个项目编号 ，应执行的是上面红色代码?
|
| -- 作者：有点甜 -- 发布时间：2018/7/12 15:06:00 -- msgbox弹出这个值看看
msgbox(Tables("投标资料汇总台帐_table1").Current("项目编号")) |
| -- 作者：ZJZK2018 -- 发布时间：2018/7/12 15:19:00 -- 谢谢有点甜老师，不是代码问题，而是我的数据乱了，谢谢 |