DataTables("业务提成明细表").LoadTop = "100 percent"
Dim pth() As String = e.Node.FullPath.Split("\")
If e.Node.Level=0 Then
DataTables("业务提成明细表").LoadFilter="[年度]='" & pth(0) & "' and [单位]='" & _BuMen & "'"
DataTables("业务提成明细表").Load
ElseIf e.Node.Level=1 Then
DataTables("业务提成明细表").LoadFilter="[年月]='" & pth(1) & "' and [年度]='" & pth(0) & "' And [单位]='" & _BuMen & "'"
DataTables("业务提成明细表").Load
End If
[此贴子已经被作者于2016/1/6 16:49:54编辑过]