Foxtable(狐表)用户栏目专家坐堂 → 加载可见行的关联表相关行


  共有2781人关注过本帖树形打印复制链接

主题:加载可见行的关联表相关行

帅哥哟,离线,有人找我吗?
2425004926
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
加载可见行的关联表相关行  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
2425004926
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:712 积分:5559 威望:0 精华:0 注册:2019/11/14 9:36:00
  发帖心情 Post By:2020/6/8 16:54:00 [显示全部帖子]

是的,单位编号是字符列

谢谢老师!好了

 回到顶部