以下是引用有点甜在2018/4/16 15:07:00的发言：
x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)", filter)
为什么有时计算会对，有时不计算呢
NodeMouseClick
Dim X As WinForm.Label= e.Form.Controls("Label1")
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If riqi.Checked=True Then
If e.Node.Text <> "" Then
Select Case e.Node.Level
Case 0
Filter = "[日期_年] = '" & dr("日期_年") & "'"
Case 1
Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "'"
Case 2
Filter = "[日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "' And [员工_姓名] = '" & dr("员工_姓名") & "'"
End Select
End If
Else
If e.Node.Text <> "" Then
Select Case e.Node.Level
Case 0
Filter = "[员工_姓名] = '" & dr("员工_姓名") & "'"
Case 1
Filter = "[员工_姓名] = '" & dr("员工_姓名") & "' And [日期_年] = '" & dr("日期_年") & "'"
Case 2
Filter = "[员工_姓名] = '" & dr("员工_姓名") & "' And [日期_年] = '" & dr("日期_年") & "' And [日期_月] = '" & dr("日期_月") & "'"
End Select
End If
End If
x.Text=Tables("抽成_ftb_choucheng").Compute("Sum(抽成金额)",Filter )
Tables("抽成_ftb_choucheng").Filter = Filter
此主题相关图片如下：003g.jpg
[此贴子已经被作者于2018/4/16 15:26:47编辑过]
加好友 
发短信
Post By：2018/4/16 14:49:00 [显示全部帖子]
