Dim t As Table = Tables("开单界面窗口_入库表") If t.current("客户") = Nothing Then Return Dim dr As Row = Tables("开单界面窗口_出库表").AddNew() dr("客户") = t.current("客户")
Dim r As Table = Tables("出库表") r.Position = r.rows.count-1
Dim d As Table = Tables("开单界面窗口_出库表") d.Position = d.rows.count-1