以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载可见行的关联表相关行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150819)
--  作者：2425004926
--  发布时间：2020/6/8 16:21:00
--  加载可见行的关联表相关行
”公司表“里作了一些标记，我的目的是让可见行显示一些标记，这些标记和”传真表“里有关联，关联列是单位编号，也就是“传真表”里有这个编号的行，打开“公司表”时可见行就显示标记，否则不显示标记，以下是代码，测试时出现运行错误，“至少一个参数没有被指定值。”，是什么原因

If DataTables("公司").DataRows.Count = 0 Then \'如果公司表没有加载数据
    DataTables("发传真").LoadFilter = "单位编号 Is Null" \'发传真表不加载数据
Else
    \'Output.Show(Tables("公司_Table1").TopVisibleRow)
    \'Output.Show(Tables("公司_Table1").BottomVisibleRow)
    Dim a As Integer = Tables("公司_Table1").TopVisibleRow
    Dim b As Integer = Tables("公司_Table1").BottomVisibleRow
    Dim i As Integer
    For i = a To b
        Output.Show(Tables("公司_Table1").Rows(i)("单位编号"))
        Dim ids As String
        ids = ids & "," & Tables("公司_Table1").Rows(i)("单位编号")
        If i = b Then
            ids = ids.Trim(",")
            \'Output.Show(ids)
            DataTables("发传真").LoadFilter = "单位编号 In (" & ids & ")"
        End If
    Next
End If
DataTables("发传真").Load()
--  作者：有点蓝
--  发布时间：2020/6/8 16:46:00
--  
单位编号是字符列？

    For i = a To b
        Output.Show(Tables("公司_Table1").Rows(i)("单位编号"))
        Dim ids As String
        ids = ids & ",\'" & Tables("公司_Table1").Rows(i)("单位编号") & "\'"
    Next
            ids = ids.Trim(",")
            \'Output.Show(ids)
            DataTables("发传真").LoadFilter = "单位编号 In (" & ids & ")"
End If
DataTables("发传真").Load()
--  作者：2425004926
--  发布时间：2020/6/8 16:54:00
--  
是的，单位编号是字符列

谢谢老师！好了