Dim tbl As WinForm.Tabletbl = e.Form.CreateTable("Table1", "订单", False)tbl.SetBounds(10, 10, 600, 400)e.Form.AddControl(tbl)
Dim dt As DataTable = Tables(e.form.Name & "_Table1").DataTableDim 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
副本表状态下.