标题：无法在 System.String 和 System.Int32 上执行“=”操作

1楼

hanlingli119 发表于：2024/6/28 15:38:00

无法在 System.String 和 System.Int32 上执行“=”操作如果在位置1和位置2输入数字，没问题，但输入汉字就会出现上述情况，怎么调整，谢谢

首先生成统计表

Dim dt As DataTable

Dim b As New SQLGroupTableBuilder("统计表1", "其它算量")

b.Groups.AddDef("位置1")

b.Groups.AddDef("位置2")

b.Groups.AddDef("名称")

b.Totals.AddDef("计算值")

dt = b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt, "位置1|位置2|名称")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

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

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

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

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = " & Year) & ")"

Case 1

nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = " & Year & " And 位置2 = " & Month) & ")"

Case 2

nd.Text = nd.text & "(" & nd.DataRow("计算值") & ")"

End Select

trv.Nodes.Insert("加载所有行", "加载所有行(" & dt.Compute("Sum(计算值)") & ")", 0)

trv.ResumeRedraw

2楼

有点蓝 发表于：2024/6/28 15:57:00

先看2遍：http://www.foxtable.com/webhelp/topics/1284.htm

nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = '" & Year) & "')"

3楼

hanlingli119 发表于：2024/6/28 16:17:00

表达式包含无效的字符串常量: '1。老师按你的修改后，又出现了上述情况图片点击可在新窗口打开查看

4楼

有点蓝 发表于：2024/6/28 16:30:00

该怎么改的？

5楼

hanlingli119 发表于：2024/6/28 17:04:00

nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = '" & Year) & "')"

按这个改的

6楼

有点蓝 发表于：2024/6/28 17:12:00

看错位置了

nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = '" & Year & "'") & ")"

7楼

hanlingli119 发表于：2024/6/28 17:13:00

无法在 System.String 和 System.Int32 上执行“=”操作如果在位置1和位置2输入数字，没问题，但输入汉字就会出现上述情况

8楼

有点蓝 发表于：2024/6/28 17:14:00

Case 1 也自行参考上面的方法改

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