”公司表“里作了一些标记,我的目的是让可见行显示一些标记,这些标记和”传真表“里有关联,关联列是单位编号,也就是“传真表”里有这个编号的行,打开“公司表”时可见行就显示标记,否则不显示标记,以下是代码,测试时出现运行错误,“至少一个参数没有被指定值。”,是什么原因
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()