- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 无法在 System.String 和 System.Int32 上执行“=”操作 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192517)
-- 发布时间：2024/6/28 15:38:00
-- 无法在 System.String 和 System.Int32 上执行“=”操作
无法在 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
Next
trv.Nodes.Insert("加载所有行", "加载所有行(" & dt.Compute("Sum(计算值)") & ")", 0)
trv.ResumeRedraw
-- 发布时间：2024/6/28 15:57:00
--
先看2遍：http://www.foxtable.com/webhelp/topics/1284.htm
nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = \'" & Year) & "\')"
-- 发布时间：2024/6/28 16:17:00
--
表达式包含无效的字符串常量: \'1。老师按你的修改后，又出现了上述情况
-- 发布时间：2024/6/28 16:30:00
--
该怎么改的？
-- 发布时间：2024/6/28 17:04:00
--
nd.Text = nd.text & "(" & dt.Compute("Sum(计算值)", "位置1 = \'" & Year) & "\')" 按这个改的 |
-- 发布时间：2024/6/28 17:12:00
--
看错位置了
-- 发布时间：2024/6/28 17:13:00
--
无法在 System.String 和 System.Int32 上执行“=”操作 如果在位置1和位置2输入数字，没问题，但输入汉字就会出现上述情况
-- 发布时间：2024/6/28 17:14:00
--
Case 1 也自行参考上面的方法改
-- 发布时间：2024/7/1 13:45:00
--
老师好，上述的问题已解决，感谢，但又出了新的问题，双击生成的目录树节点，不显示对应的表格，而是出现“至少一个参数没被指定”，这个又咋解决？因用的不熟，希望老师指点
-- 发布时间：2024/7/1 14:09:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626