以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模拟关联表出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128127)
--  作者：ZJZK2018
--  发布时间：2018/11/29 13:57:00
--  模拟关联表出错
我在项目信息台账窗口AfterLoad事件中:

\'\'=======项目信息与单位工程表模拟关联表 ===========
Dim t As Table = Tables("项目信息台账_Table2")
With Tables("项目信息台账_Table1")
    If .Current IsNot Nothing Then
        t.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
    Else
        t.Filter = "False"
    End If
End With

打开窗口时提示错误：

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2018.9.9.1

错误所在事件：窗口,项目信息台账,AfterLoad

详细错误信息：

指定的参数已超出有效值的范围。

参数名: index
--  作者：有点甜
--  发布时间：2018/11/29 14:49:00
--  

1、试试

 

systemready = False
Dim t As Table = Tables("项目信息台账_Table2")
With Tables("项目信息台账_Table1")
    If .Current IsNot Nothing Then
        t.Filter = "项目编号 = \'" & .Current("项目编号") & "\'"
    Else
        t.Filter = "False"
    End If
End With
systemready = True

 

2、如果还有问题，那就是表格其余事件有问题导致的，比如 currentChanged 等，分别注释后测试。