Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有内容" Then
Select Case e.Node.Level
Case 0
Filter = "[ssgd] = '" & dr("ssgd") & "'"
Case 1
Filter = "[ssgd] = '" & dr("ssgd") & "' And [sjwldw] = '" & dr("sjwldw") & "'"
End Select
End If
Tables("gd_zjmx").Filter = Filter
做了一个窗口 ，左边上目录树控件TreeView1代码在上面
右边对应table控件绑定的表gd_zjmx 是一个收入、支出 所属部门ssgd、班组sjwldw
总表gd_zjmx的流水帐设置好了，没问题。问题在窗口中点目录树相应节点时，余额不对，根本不准，请问要如何弄
加好友 
发短信
Post By：2020/6/6 10:08:00 [显示全部帖子]
