主题：[求助] 错误信息

你的Table3绑定什么表？

 

如果是主表(不是副本)、或者是关联表，就有可能被别的窗口把表剪切走了。因为只有一个。

 

看11楼

帮我看看那段代码的问题

那把table3改为副本？

1、改成副本表；

 

2、红色代码有错，这个时候，md没有值，你想其取什么值？

 

Dim md As WinForm.TreeNode
For Each f As String In dt.GetValues(v, v & " Is not null")
    Dim gd As WinForm.TreeNode =md.Nodes.Add(f)

红袍兄：

 

关于2的解释，是这样的：

 

原本保存按钮中的那段生成treeview的代码和窗口的afterload的代码是一样的。但是有个问题：每执行一次保存，treeview那边就在原来的基础上又新增了节点，变成了这样的：

 

显示所有行

显示所有行

按产品名称

按产品规格

按产品名称

按产品规格

 

所以我才想到：是不是这个保存按钮的代码不能再写成新增的格式，所以才改成这样，估计这样一改，改出问题了。

DataTables("采购合同表").save()
DataTables("采购明细表").save()
''Dim btn As WinForm.Button = e.Form.Controls("Button8")
''btn.PerformClick()
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
Dim b As New GroupTableBuilder("统计表2",DataTables("采购明细表"))
b.Groups.AddDef("产品名称")
b.Groups.AddDef("产品规格")
dt = b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim v As String = "产品名称"
Dim h As String = "产品规格"
Dim md As WinForm.TreeNode=trv.Nodes(0)
For Each f As String In dt.GetValues(v, v & " Is not null")
    Dim gd As WinForm.TreeNode =md.Nodes.Add(f)
    For Each g As String In dt.GetValues(h, "[产品名称]= '" & f & "'And [产品规格] Is not null ")
        Dim kd As WinForm.TreeNode =gd.Nodes.Add(g)
    Next
Next
Dim c As String = "到货完结"
Dim nd As WinForm.TreeNode=trv.Nodes(1)
For Each s As String In DataTables("采购明细表").GetValues(c, c & " is not null")
    nd.Nodes.Add(s)
Next
trv.ResumeRedraw
Audio.play(ProjectPath & "Windows Exclamation.wav", AudioPlayMode.Background)
MessageBox.show("数据已保存完毕!","提示")

 

 

 

此主题相关图片如下：无标题2.jpg

不用改afterLoad的代码，把原先的删除，重新生成即可

 

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

trv.Nodes.Clear

1.我没有该过afterload的代码，改的是保存按钮的代码（当然中间含了部分afterload事件的代码）

 

2.您给的这个代码放在什么位置？ 或者代码怎么合并？