- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：窗口表加载数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80611)
-- 发布时间：2016/1/27 12:34:00
-- 求助：窗口表加载数据
问题：同一个窗口，在不同的地方打开，显示不同的数据。
咨询：大概问题出在哪？
1.在左侧共有窗口打开，显示的是我需要的数据。
此主题相关图片如下：111.jpg
2.在独立窗口开启时，先显示需要的数据，然后马上跳转为所有数据。
此主题相关图片如下：666.jpg
窗口AfterLoad代码如下：
DataTables("生产主表").LoadFilter = "完工时间 is null" \'加载未完工机台
DataTables("生产主表").LoadOrder = "生产区域,预排区域"
DataTables("生产主表").Load()
Dim all As WinForm.RadioButton = e.Form.Controls("rdoall")
all.Checked = True
Dim dt As DataTable
Dim b As New SQLGroupTableBuilder("统计表1","生产主表") \'首先生成统计表
b.C \'数据源
b.Filter = "完工 = 0"
b.Groups.AddDef("预计上线时间",DateGroupEnum.Year,"年")
b.Groups.AddDef("预计上线时间",DateGroupEnum.Month,"月")
b.Totals.AddDef("制令号",AggregateEnum.Count,"制令号") \'根据制令号列来统计记录数,也就是机台数
b.Build()
dt = DataTables("统计表1") \'生成统计表
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月","","年 Desc") \'然后根据统计表生成目录树
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Select Case nd.Level
Case 0
nd.Text = nd.text & "年(" & dt.Compute("Sum(制令号)","年 = " & Year) & "台)"
Case 1
nd.Text = nd.text & "月(" & dt.Compute("Sum(制令号)","年 = " & Year & " And 月 = " & Month) & "台)"
End Select
Next
trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(制令号)") & "台)",0)
trv.ResumeRedraw
Tables("生产主表").Sort = "生产区域,预排区域"
[此贴子已经被作者于2016/1/27 12:35:56编辑过]
-- 发布时间：2016/1/27 12:54:00
--
肯定有其他代码影响。和你给出的代码都无关。
看看是否有自动刷新之类的代码。