标题：统计问题

1楼

hanlingli119 发表于：2024/7/23 16:54:00

输入以下代码，双击节点，出现至少一个参数未被指定，怎么处理

Dim Filter As String = ""

If e.Node.Name <> "加载所有行" Then '要用Name属性,不能用Text属性

Dim Year As String = e.Node.DataRow("位置1")

Dim Month As String = e.Node.DataRow("位置2")

Dim Product As String = e.Node.DataRow("名称")

Select Case e.Node.Level

Case 0

Filter = "Year('位置1') = " & Year

Case 1

Filter = "Year('位置1') = " & Year & " And Month('位置2') = " & Month

Case 2

Filter = "Year('位置1') = " & Year & " And Month('名称') = " & Month & " And 名称 = '" & Product & "'"

End Select

End If

DataTables("其它算量").LoadFilter = Filter

DataTables("其它算量").Load()

2楼

有点蓝 发表于：2024/7/23 17:04:00

看帮助要先理解，帮助里使用的是日期列，所以可以使用year、Month这些用法，"位置1"这些列是日期型的吗？

3楼

hanlingli119 发表于：2024/7/24 15:15:00

虽然我用的 year ,但我重新定义了Dim Year As String ，其他弄不了了，请老师给调整一下

4楼

有点蓝 发表于：2024/7/24 15:50:00

下面这些是表达式针对日期的语法：http://www.foxtable.com/webhelp/topics/0692.htm

此主题相关图片如下：1.png

既然没有用到日期，那么建议定义变量名称的时候也不要使用这种任意产生误会的名称，给自己挖坑

Dim weizhi1 As String = e.Node.DataRow("位置1")
Dim weizhi2 As String = e.Node.DataRow("位置2")

……

Case 2

Filter = "位置1 = '" & weizhi1 & " And 位置2 = "' & Month & "' And 名称 = '" & Product & "'"

……

其它case0、case1自己参考上面用法改

5楼

hanlingli119 发表于：2024/7/24 15:51:00

谢谢老师

共5 条记录, 每页显示 10 条, 页签: [1]