以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  测试中出现一个【白版】窗口? 【3楼已还原白版过程】  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10752)

--  作者:mr725
--  发布时间:2011/6/21 22:05:00
--  测试中出现一个【白版】窗口? 【3楼已还原白版过程】

代码测试运行中,出现一个【白版】窗口,而且关闭不了! 以前也曾经出现过,是代码错误造成的(具体代码没记住),狐爸看看是什么原因 ,应该也有人遇到过的 : 


图片点击可在新窗口打开查看此主题相关图片如下:白版 .gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-6-21 23:08:44编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/6/21 22:36:00
--  
呵呵,我留意一下,不过有个例子就好了
--  作者:mr725
--  发布时间:2011/6/21 23:08:00
--  

还原白版过程:

 

1、打开系统下的:组合统计结果.Table - 点击小窗口的统计按钮 =》 跳出统计窗口。
2、打开命令窗口,执行下面代码(两次):

 

\'Relations.Delete("关联1")  ‘加上这个后就不会出错了,因为不删除关联就无法关闭统计表1了··没有这个就会出现白版窗口!

 

Dim b As New SQLGroupTableBuilder("统计表1","进货单")
b.AddTable("进货单","型号","销售单","型号") \'添加统计表
b.Groups.AddExp("大类","Iif(InStr({进货单}.型号,\'X\')>0,\'X系列\',\'其它系列\')")
b.Groups.AddExp("型号","{进货单}.型号")
b.Totals.AddExp("金额","null","进货金额_值")
b.Totals.AddExp("数量1","null","进货数量_值")
b.Totals.AddExp("数量2","null","销售数量_值")
\'b.GroupProportion = True
\'b.GrandProportion = True
\'b.VerticalTotal = True
Tables("窗口1_Table1").DataSource  = b.BuildDataSource

If Relations.Contains("关联1") = False Then
    Relations.Add("关联1",DataTables("窗口1_Table1").DataCols("型号"),DataTables("进货单").DataCols("型号"))
End If

DataTables("窗口1_Table1").DataCols("数量1").Expression = ""
DataTables("窗口1_Table1").DataCols("数量1").Expression = "Sum(Child.数量)"
DataTables("窗口1_Table1").DataCols("金额").Expression = ""
DataTables("窗口1_Table1").DataCols("金额").Expression = "Sum(Child.金额)"

Tables("窗口1_Table1").AutoSizeCols(15)

 

3、此时,窗口表【死去了】, 关闭窗口(点击红X),出现错误提示,点击continue(继续)。


4、若白版窗口没有出项,关闭窗口(点击红X),出现错误提示,点击continue(继续)。

 

    还原白版成功···

 

若继续点击小窗口的统计按钮,重复上面3、4后可以制造出N个白版窗口来。。。

[此贴子已经被作者于2011-6-21 23:15:28编辑过]

--  作者:mr725
--  发布时间:2011/6/21 23:30:00
--  

就像这样的: 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/6/22 8:26:00
--  
呵呵,多谢mr725兄