主题：窗口录入与查询

 如果你希望序号按照顺序来。可以在afterOpenOproject事件写代码，或者是表的AfterLoad事件写代码

Dim i As Integer = 1
For Each dr As DataRow In DataTables("表A").Select("", "_Identify")
    dr.baserow("第一列") = i
    i = i + 1
Next