'设置员工表加载条件,第一个筛选条件,是部门;第二个筛选条件是:去除当班学员表中已有的学员.现在先提取第二个筛选条件字符串.
Dim bcxy As String
bcxy = Tables("培训班次").Current("kid") '这里对培训班次表当前行即当前培训班次的kid进行取值,写入字符串bcxy
output.show(bcxy)
Tables("学员表").Filter = "[班次编码] = '" & bcxy & "'" '在这个表达式上,经常犯错误.bcft是一个动态提取的字符串.如果是整数型,这样写:filter = "[班次编码] = " & bcft____整数型
'以上,先对学员表进行了一次筛选,列出的是培训班次当前行,即当前培训班次中的所有学员.
Dim xyid As String
output.show(Tables("学员表").Rows.Count)
If Tables("学员表").Rows.Count > 0
For Each dr As Row In Tables("学员表").Rows
xyid = xyid & "," & dr("培训号")
Next
End If
output.show(xyid) '得到一个全部培训号连起来的字符串
xyid = xyid.Trim(",") '去掉字符串前面的第一个逗号
output.show(xyid)
Dim xyids() As String
xyids = xyid.Split(",") '得到一个本班已有学员的培训号数组xyids()
output.show(xyids(0))
Dim xyjh As new List(of String)
xyjh.AddRange(xyids) '得到一个本班已有学员的培训号集合xyjh,以后可以用contains语句来判断是否属于本集合中
'output.show(xyjh.count)
'If xyjh.Contains("ymjttygs023") = True
'output.show("您好")
'End If
'以下语句用来写出员工表筛选的第二个条件
'Dim bm As Integer
'Dim bmdr As DataRow = e.Node.DataRow '获取生成此节点的行
'bm = bmdr("id")
Tables("员工表").Filter = "[部门ID] = " & 28
Tables("员工表").Filter = "xyjh.Contains('" & [学员号] & "')" = True
最后这句不会写。请教。
加好友 
发短信
Post By：2018/3/3 14:11:00 [只看该作者]
