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

1、在CurrentChanged事件设置代码：

 

DataTables("表名").Save()

 

这样换行的时候，就会保存。

 

2、在BeforeSaveDataRow设置代码：

 

if e.DataRow.IsNull("货品编号") OrElse e.DataRow.IsNull("单位") Then

    e.Cancel = True

    messagebox.show("货品编号、单位不能为空")

End If

 

你不如看看这个例子：

 

http://help.foxtable.com/topics/2263.htm

 

用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