老师好！下面问题找不出原因，请老师给指点下：
A窗口 包含： A窗口_Table1 , A窗口_Table2，A窗口_Table3 ,其中Table1绑定计划单， Table2、3是计划明细，两表同表模拟关联。 有个加载树筛选数据
B窗口 包含：同A窗口表结构内容一样。 和A窗中加载树筛选值有区别。
当A窗是为主窗口打开状态下，打开模式的B窗口再关闭后， A窗里： A窗口_Table1 , A窗口_Table2，A窗口_Table3三个窗口内数据就都消失了。
我把B窗口加载树里的代码屏蔽后，再开关表数据不再消失，表B里显示的数据和表A就一样了。
另外，我把A窗口设置为模式，不屏蔽B窗加载树代码，这样数据也不消失，显示正常。
请问老师，A窗口数据消失是B窗口加载树代码问题吗，如何解决？
‘加载树显示代码
'首先生成统计表
Dim dt As DataTable
Dim b As New SQLGroupTableBuilder("统计表1","计划单")
b.C
b.Groups.AddDef("进度")
b.Groups.AddDef("单位名称")
b.Groups.AddDef("报单日期", DateGroupEnum.None) '根据日期按年分组)
b.Totals.AddDef("_Identify",AggregateEnum.Count,"订单数") '根据主键列来统计记录数,也就是订单数
'b.Filter = " 进度 = '待复核' And 单位名称 = '" & User.Group & "'"
b.Filter = " 进度 = '待复核'"
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "单位名称|报单日期")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Product1 As String = nd.DataRow("进度")
Dim Product2 As String = nd.DataRow("单位名称")
Dim Year As Date = nd.DataRow("报单日期")
Select Case nd.Level
Case 0
nd.Text = nd.text & "(" & dt.compute("sum(订单数)","单位名称='"& Product2 & "'") &")"
Case 1
nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")"
End Select
Next
trv.Nodes.Insert("加载所有行","全部待复核(" & dt.Compute("Sum(订单数)") & "条)",0)
'DataTables("计划单").LoadFilter = "进度 = '待复核'"
DataTables("计划单").LoadFilter = " 进度 = '待复核' And 单位名称 = '" & User.Group & "'"
DataTables("计划单").Load()
trv.ResumeRedraw
[此贴子已经被作者于2019/9/18 11:32:39编辑过]
加好友 
发短信
Post By：2019/9/18 11:27:00 [只看该作者]
