以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  为什么越改越错呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129129)

--  作者：宁老师SQE --  发布时间：2018/12/22 9:02:00 --  为什么越改越错呢 此主题相关图片如下：360截图16560317557957.png  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:丹东恒锐.table 为什么越改越错呢 昨天请有点甜老师帮忙写的例子 ，在网上下载后可以正常运行  ，但是代码复制后就无法运行了  这是什么原因呢  [此贴子已经被作者于2018/12/22 9:02:31编辑过]

--  作者：有点蓝 --  发布时间：2018/12/22 9:19:00 --   首先要在理解代码的基础上使用，而不是只会抄。 For Each nd As WinForm.TreeNode In trv.AllNodes     Dim Producta As String =  nd.DataRow("客户名称")      Dim Productb As String =  nd.DataRow("产品代号")      Dim Product As String  =  nd.DataRow("订单关闭")      Select Case nd.Level         Case 0             nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = \'" & Producta & "\'") & " 条)"         Case 1             nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = \'" & Producta & "\' And 产品代号 = \'" & Productb & "\'") & "条)"         Case 2             nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)","客户名称 = \'" & Producta & " \'And 产品代号 = \'" & Productb & " \'and 订单关闭 = " & Product) & "条)"         Case 3             nd.Text = nd.text & "(" & nd.DataRow("订单数") & "条)"     End Select Next

--  作者：宁老师SQE --  发布时间：2018/12/22 9:53:00 --   代码复制完了以后   还是跟以前一样的报警

--  作者：有点蓝 --  发布时间：2018/12/22 10:12:00 --   我测试没有问题。如果连代码都不会抄，先去学习一下基础

--  作者：宁老师SQE --  发布时间：2018/12/22 10:49:00 --   此主题相关图片如下：360截图16600826343045.png 不会吧   那怎么我一调试就是错误的呢  此主题相关图片如下：360截图16450704699093.png

--  作者：有点蓝 --  发布时间：2018/12/22 11:17:00 --   http://www.foxtable.com/webhelp/scr/0207.htm http://www.foxtable.com/webhelp/scr/1592.htm  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:丹东恒锐.zip

--  作者：宁老师SQE --  发布时间：2018/12/22 11:33:00 --  我把您给的代码完整复制过去了 一运行就是错误  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:丹东恒锐.table 我把您给的代码完整复制过去了  一运行就是错误  [此贴子已经被作者于2018/12/22 11:33:10编辑过]

--  作者：有点蓝 --  发布时间：2018/12/22 11:37:00 --   http://www.foxtable.com/webhelp/scr/1485.htm，自己分析是哪一句代码有问题