Dim Filter As String If e.Node.Text = "加载所有行" Then filter = "" Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行 Dim Month As Integer = dr("月") Select Case e.Node.Level Case 0 Filter =" Month(账期) = " & Month End Select End If DataTables("固定资产台账").loadFilter = Filter DataTables("固定资产台账").load
加好友 
发短信
Post By：2021/5/14 11:10:00 [显示全部帖子]
