主题：但入库表新增一行后，直接在出库表中新增行却无效，必须先选中入库表的其他行，再返回该行才能新增出库行？

增加按钮

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

t.RaiseCurrentChanged