主题：基本资料的保存设置

您这样还不把foxtable累死啊？

参考Load方法来同步当前行试试！

例如换行前执行如下代码，只同步选定行：

Tables("订单").Current.DataRow.Load()

用PositionChanged事件代码看看

那就别在positionChanged事件保存，在AfterSelchanged设置代码：

Dim r1 As Integer = e.OldRange.RowSel
Dim r2 As Integer = e.NewRange.RowSel
If r1 <> r2 Then
    DataTables("hpzl").Save()
End If