在一个关联表里动态增加了几个列,但是设置列位置的时候,关联明细里不显示,必须要重新关联一次才显示,这个应该是BUG 很久之前我提过一次后来不了了之。如果不是关联表就没这个问题
Dim t1 As Table=Tables("工单.工单用料明细")
Dim t2 As Table=Tables("工单.领料入")
If t1.DataTable.DataCols.Contains("删") = False Then
t1.DataTable.DataCols.Add("删",Gettype(String),1)
End If
If t1.DataTable.DataCols.Contains("存") = False Then
t1.DataTable.DataCols.Add("存",Gettype(String),1)
End If
Dim ss() As String="增,删,改,存".split(",")
For i As Integer=0 To ss.Length-1
If t2.DataTable.DataCols.Contains(ss(i)) = False Then
t2.DataTable.DataCols.Add(ss(i),Gettype(String),1)
End If
Next
蓝色代码在afteropenproject事件中
t1.SetColVisibleWidth("删|24|存|24|物料编号|60|物料名称|80|长度|45|高度|45|领料库房|120|数量|40|面积|90|批号|100|可用库存|90|发生日期|90" )
t2.SetColVisibleWidth("增|24|删|24|改|24|存|24|物料编号|60|物料名称|80|长度|45|高度|45|存料仓库|120|数量|40|面积|90|批号|100|经手人|90|入库时间|100|备注|90" )
这个 工单.工单用料明细 和工单.领料入关联表是在窗口中
红字代码单独用了一个按钮 但是不起作用,需要把两个表重新关联一次才显示,