以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]奇葩的窗口问题又来了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52140)

--  作者:jiskin
--  发布时间:2014/6/10 9:54:00
--  [求助]奇葩的窗口问题又来了

正常窗口字段图片:


此主题相关图片如下:qq截图20140610094944.png
按此在新窗口浏览图片

 

 

 

偶尔出现问题的图片:


此主题相关图片如下:qq截图20140610093108.png
按此在新窗口浏览图片

 

afterload代码:

Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.panel.parent.parent
AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick


Dim t As Table = Tables("Manufacture Management_Demand_Details")
Dim tb As Table = Tables("Manufacture Management_Order_Details")
Dim s As String

With tb
    \'    .Cols("OrderNumber").Caption = "订单号码"
    .Cols("SubNumber").Caption = "生产编号"
    .Cols("ValveModel").Caption = "阀门型号"
    .Cols("ValveNumber").Caption = "阀门编号"
    .Cols("MaterialNumber").Caption = "物料编号"
    .Cols("DrawingNumbers").Caption = "阀门图号"
    .Cols("ProductionStatus").Caption = "生产状态"
    .Cols("Quantity").Caption = "数量"
    .Cols("Verify").Caption = "审核"
    .BuildHeader()
    .SetColVisibleWidth("SubNumber|120|ValveModel|240|MaterialNumber|80|DrawingNumbers|70|ValveNumber|120|Quantity|60|ProductionStatus|70|Verify|60")
End With
For Each cl As Col In tb.Cols
    cl.TextAlign = TextAlignEnum.Center
Next
tb.ListMode = True
tb.DataTable.SysStyles("CurrentRow").BackColor = Color.LawnGreen
tb.Sort = "ProductionStatus,Verify,OrderNumber DESC"

With t
    .Cols("OrderNumber").Caption = "订单号码"
    .Cols("ValveModel").Caption = "阀门型号"
    .Cols("ValveNumber").Caption = "阀门编号"
    .Cols("ValveParts").Caption = "阀门零件"
    .Cols("MaterialNumber").Caption = "零件编号"
    .Cols("DrawingNumbers").Caption = "图号"
    .Cols("EachNumber").Caption = "单位数量"
    .Cols("Quantity").Caption = "生产数量"
    .Cols("Remark").Caption = "备注"
    .Cols("EditDate").Caption = "修改时间"
    .BuildHeader()
    .SetColVisibleWidth("ValveParts|230|MaterialNumber|80|DrawingNumbers|70|EachNumber|70|Quantity|60|Remark|120|EditDate|110")
End With
For Each cl As Col In t.Cols
    cl.TextAlign = TextAlignEnum.Center
Next
t.ListMode = True
t.DataTable.SysStyles("CurrentRow").BackColor = Color.LawnGreen
t.DataTable.DataCols("EditDate").SetDateTimeFormat(DateTimeFormatEnum.DateTime)

 

With tb
    If .Current Is Nothing Then
        Return
    Else
        s = "select * from {Demand_Details} where SubNumber = " &  "\'" & .Current("SubNumber") & "\'"
        t.DataTable.sqlload(s)
        t.Sort = "_SortKey"
    End If
End With

 

 

 

 

还有好几个其他窗口也都这样,莫名其妙 不定时出现!

[此贴子已经被作者于2014-6-10 9:58:11编辑过]

--  作者:Bin
--  发布时间:2014/6/10 9:56:00
--  
没看懂你问题所在.
--  作者:jiskin
--  发布时间:2014/6/10 9:57:00
--  
以下是引用Bin在2014-6-10 9:56:00的发言:
没看懂你问题所在.

 

数据库字段是E文字母的,到窗口时候 我重命名标题了,但是 有时候加载就失败了!

看两个图片很清楚嘛

[此贴子已经被作者于2014-6-10 9:57:48编辑过]

--  作者:Bin
--  发布时间:2014/6/10 9:59:00
--  
上个例子看看.
--  作者:有点甜
--  发布时间:2014/6/10 9:59:00
--  

 这段代码你重新加载了表,加载完表以后,要重新设置标题。

 

        s = "select * from {Demand_Details} where SubNumber = " &  "\'" & .Current("SubNumber") & "\'"
        t.DataTable.sqlload(s)
        t.Sort = "_SortKey"


--  作者:jiskin
--  发布时间:2014/6/10 10:01:00
--  
以下是引用有点甜在2014-6-10 9:59:00的发言:

 这段代码你重新加载了表,加载完表以后,要重新设置标题。

 

        s = "select * from {Demand_Details} where SubNumber = " &  "\'" & .Current("SubNumber") & "\'"
        t.DataTable.sqlload(s)
        t.Sort = "_SortKey"

 

甜总,我记得SQLload 是不需要设置重新设置标题的吧?FILL才需要啊

另外我也有一个表 没有做SQLload加载 也出现这个问题

[此贴子已经被作者于2014-6-10 10:02:11编辑过]

--  作者:有点甜
--  发布时间:2014/6/10 10:02:00
--  

保险起见,把设置标题的代码放到最后就行。


--  作者:jiskin
--  发布时间:2014/6/10 10:04:00
--  
以下是引用有点甜在2014-6-10 10:02:00的发言:

保险起见,把设置标题的代码放到最后就行。

 

好吧 我试试