Dim Tbl As Table = Tables("订单表并列_Table1")
Dim cur1 As String
Dim cur As Double
cur = tbl.Current("订单数量")
cur1= tbl.current("产品编码")
Tables("订单表并列_Table2").Fill("Sel ect * From {工序库明细主表} where 物料编码 = '" & cur1 & "'","shenchan" ,True)
Tables("订单表并列_Table2").SetColVisibleWidth("物料编码|60|部件名称|60|部件规格|80|部件量|55|编码|70")
Tables("订单表并列_Table2").Cols.Remove("物料编码")
Tables("订单表并列_Table2").Cols.Remove("编码")
DataTables("订单表并列_Table2").DataCols.Add("部件总量", Gettype(Double), "[部件量] * " & cur)
加好友 
发短信
Post By：2017/3/29 9:12:00 [显示全部帖子]
