以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动关闭问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55110)

--  作者:bagabaga
--  发布时间:2014/8/11 11:19:00
--  自动关闭问题
以下代码是窗口中加载的表的表事件DoubleChlick,但是在窗口双击列"Zhdj"后,原来打开的窗口会自动关闭,导致程序中断,请教什么原因,怎么修改

If e.Col.Name = "Zhdj"
    Dim sql As String = "Select RcjBm as 人材机编码,Mc as 名称,Rcjhl As 含量,Rcjhj as 合计 FROM (SELECT Rcjid,Rcjhl,Rcjhj,fK From {QdxrcjhlMx} where Fk = \'"  & Tables("Qdmx").Current("Xh") & "\') as a INNER JOIN {RcjhzMx} as b ON a.RcjId = b.RcjId"
    Dim b As New GroupTableBuilder("统计表1",sql) 
    b.Groups.AddDef("人材机编码") 
    b.Groups.AddDef("名称") 
    b.Groups.AddDef("含量") 
    b.Totals.AddDef("合计")
    \'b.HorizontalTotal = True
    b.VerticalTotal = True
    b.Build()
End If

--  作者:有点甜
--  发布时间:2014/8/11 11:32:00
--  

 呃,是不是你这个双击的table就是【统计表1】?

 

 做个例子发上来