以下是引用江南小城在2015/12/16 19:53:00的发言:
老师,下面的代码帮我修改一下谢谢。
If e.Node.Name = "显示所有行" Then
Tables(e.Form.Name & "_Table1").Filter = ""
Else
Dim FilterCol() As String = e.Form.Controls("电子信息1").Value.Split(",")
Dim TmpStr() As String = e.Node.FullPath.Split("\")
Dim FilterStr As String
For i As Integer = 0 To e.Node.Level
FilterStr = FilterStr & "[" & FilterCol(i) & "] = '" & TmpStr(i) & "' And "
Next
FilterStr = FilterStr.SubString(0,FilterStr.Length - 5)
Tables(e.Form.Name & "_Table1").Filter = FilterStr
End If
-------------------------------------------------------
With e.Form.controls("Table1").Table
.EnterKeyActionDown = True
.AutoSizeCols
Dim dz_FilterCol As WinForm.CheckedComboBox = e.Form.Controls("电子信息1")
For Each C As Col In .Cols
dz_FilterCol.Items.Add(C.Name)
Next
dz_FilterCol.Value = "日期,名称"
End With
谢谢老师帮我修改吧,谢谢。