Dim sp1() As Integer = { 2,3,4,5,6 } 想把这句替换成下一句 有错误请教
'Dim sp1() As Integer = 1 To 5
For Each i1 As Integer In sp1
Dim Values() As String = e.Form.Controls("CheckedComboBox" & i1).Text.Split(",")
Dim strs() As String = e.Node.FullName.Split("\")
Dim dr As DataRow = e.Node.DataRow
Dim flt As String
For i As Integer = 0 To strs.Length - 1 ''间接获取目录树层级(Level)
For j As Integer = 0 To Values.Length - 1
If i = j Then ''只加入选定节点及以上的节点
flt + = Values(j) & "= '" & dr(Values(j)) & "' And "
End If
Next
Next
If flt > "" Then
Tables(e.Form.Name & "_Table1").Filter = flt.SubString(0,flt.Length - 5)
End If
Next
点击节点还有有个错误
列“”不属于表 凭证明细。
[此贴子已经被作者于2018/3/3 23:07:34编辑过]
加好友 
发短信
Post By：2018/3/3 0:26:00 [显示全部帖子]
此主题相关图片如下：微信截图_20180303223627.png