Dim t As Table = e.Form.Controls("Table1").Table
t.Fill("Select * From {表1} ",False)
t.AllowEdit = True
Relations.Add("R1",DataTables("表A").DataCols("ID"),t.DataTable.DataCols("AID"))
If t.DataTable.DataCols.Contains("Code") = False Then
t.DataTable.DataCols.add("Code",Gettype(String),"Parent(R1).Code","编号")
End If