主题：窗口录入与查询

 点击【重命名】，看表名是什么。

 然后点击【外部数据表】，看看是不是外部表。

1、

Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
If dt.HasChanges Then
    msgbox("请先保存")
    Return
End If
e.Form.close

2、DataTables("不良记录").Load

3、保存之前，把空行删除掉咯

Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
dt.DeleteFor("日期 is null and 客户 is null")

你是说公用数据？做一个外部数据源，把数据库放在一个公用的地方咯。

如果是局域网，可以用共享文件夹；

如果是互联网，可以搭建sqlserver数据库。

如果序号列禁止重复，那么你应该自动生成，而不是让用户填写。

序号，一般可以直接使用 _Identify 列的值

http://www.foxtable.com/webhelp/scr/0107.htm

http://www.foxtable.com/webhelp/scr/1443.htm