主题：如何始终保持一行数据，不够自动增加，多余则自动删除

1、建议你提问的时候，标题要简单描述一下问题，不能不管任何问题，都是一样的标题。例如你这个问题的标题可以改为“如何始终只保持一行数据”，这样便于他人查阅.

2、在AfterOpenProject事件设置代码：

 

Dim dt As DataTable = DataTables("表A")
Select Case dt.DataRows.Count
    Case 0
        dt.Addnew()
    Case 1
    Case Else
        For i As Integer = 1 To dt.DataRows.Count - 1
            dt.DataRows(1).Delete()
        Next
End Select

 代码改为这样，会好理解一点：

Dim dt As DataTable = DataTables("表A")
If dt.DataRows.Count = 0 Then
    dt.Addnew()
Else
    dt.DeleteFor("[_Identify] <> " & dt.DataRows(0)("_identify"))
End If