以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教代码的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121698)

--  作者:5159518
--  发布时间:2018/7/11 17:54:00
--  [求助]请教代码的问题
老师,我的窗口有两个副表,我在第一个副表的CurrentChanged事件中编写如下代码:

\'窗口主副表联动<<<<<<<<<<<<<<(通用代码,无需更改)
If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables(e.Table.DataTable.name).FindRow(dr)
If wz >= 0 Then
    Tables(e.Table.DataTable.name).Position = wz
End If
\'\'>>>>>>>>>>>>>>>>>>>>>推荐用于窗口的表(副表)的 CurrentChanged 事件中

Tables(e.Form.name & "_Table2").filter = "订单编号 = \'" & e.Table.Current("订单编号") & "\'"


执行的时候,出现运行错误

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

如果我将红色代码部分注释掉就不出错,而且出错的时候,都是在“table2”筛选不到对应数据行的情况下,为什么会出现这样的情况?如果没有满足表达式的条件,table2的表数据不应该是空白的吗?为什么会出现运行错误的提示?请老师解惑

--  作者:5159518
--  发布时间:2018/7/11 18:09:00
--  
打扰了老师,问题解决了,做了一个实例,发现运行正常,再找别的地方,再找别的地方的代码,发现下级联动的代码出现了问题,抱歉,打扰了