Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", False)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)
Dim dt As DataTable = Tables(e.form.Name & "_Table1").DataTable
Dim idx As Integer = math.max(0,dt.DataRows.Count - 10)
Tables(e.form.Name & "_Table1").DataTable.loadFilter = "[_Identify] >= " & dt.DataRows(idx)("_identify")
Tables(e.form.Name & "_Table1").DataTable.load
副本表状态下.