以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  表中没有任何行，提示错误。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172525)

--  作者：ycs5801 --  发布时间：2021/10/17 23:09:00 --  表中没有任何行，提示错误。 If Forms("主窗口").Opened()     Dim t As DataTable = DataTables("事项进度")     With Tables("主表")         If .Current Is Nothing Then             t.loadFilter = "False"         Else             t.loadFilter = "编号=\'" & .Current("编号") & "\'"             DataTables("事项进度").Load         End If     End With End If 此主题相关图片如下：搜狗截图21年10月01日1049_1.png

--  作者：有点蓝 --  发布时间：2021/10/18 8:40:00 --   If Forms("主窗口").Opened()     Dim t As DataTable = DataTables("事项进度")     With e.Table         If .Current Is Nothing Then             t.loadFilter = "1=2"         Else             t.loadFilter = "编号=\'" & .Current("编号") & "\'"         End If     End With             DataTables("事项进度").Load End If

--  作者：ycs5801 --  发布时间：2021/10/20 9:36:00 --   老师，按照你这个改了，然后我在事项录入中，把是否完成勾选上，然后点击查询，就会出错，具体错误和上边的一样。

--  作者：ycs5801 --  发布时间：2021/10/20 9:40:00 --   Dim dr As DataRow = e.Table.Current.DataRow Dim wz As Integer = Tables("主表").FindRow(dr) If wz >=0 Then       Tables("主表").Position = wz End If 这个是在副表中的currentchanged中的事件代码，是不是有错误？

--  作者：有点蓝 --  发布时间：2021/10/20 9:40:00 --   请上传实例测试

--  作者：ycs5801 --  发布时间：2021/10/20 9:57:00 --  实例 以下内容是专门发给有点蓝浏览

--  作者：有点蓝 --  发布时间：2021/10/20 10:03:00 --   怎么测试？

--  作者：ycs5801 --  发布时间：2021/10/20 10:20:00 --   点击事项录入，把是否完成勾选上，然后点击查询，就会出错。

--  作者：有点蓝 --  发布时间：2021/10/20 10:24:00 --   是4楼代码的原因，先判断一下e.Table.Current是否为空

--  作者：ycs5801 --  发布时间：2021/10/20 10:34:00 --   Dim dr As DataRow = e.Table.Current.DataRow If e.Table.Current IsNot Nothing Then     Dim wz As Integer = Tables("主表").FindRow(dr)     If wz >=0 Then         Tables("主表").Position = wz     End If End If 改完，还是报错。