专家坐堂-动态增加列的BUGFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

蓝色代码在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" )

这个工单.工单用料明细和工单.领料入关联表是在窗口中

红字代码单独用了一个按钮但是不起作用，需要把两个表重新关联一次才显示，