做个按钮,写代码
Dim t As Table = Tables("表a")
Dim idxs As String = ""
Dim tbl As WinForm.Table
e.Form.RemoveControl("test")
tbl = e.Form.CreateTable("test", t.name, True)
e.Form.AddControl(tbl)
tbl.visible = False
For i As Integer = t.TopPosition To t.BottomPosition
idxs &= t.Rows(i)("_Identify") & ","
Next
Dim nt As Table = tbl.Table
nt.Filter = "_Identify in (" & idxs.Trim(",") & ")"
tbl.Table.saveExcel("d:\123.xls", "test")