以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表如何只导出用户所选的那几行，并保存成一个excel文件？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99528)
--  作者：蓝才文百
--  发布时间：2017/4/20 21:33:00
--  [求助]表如何只导出用户所选的那几行，并保存成一个excel文件？
表导出成excel，用SaveExcel方法，如果只是保存用户 所选择的那几行记录，这个要如何写代码？谢谢！
--  作者：有点色
--  发布时间：2017/4/20 21:52:00
--  

做个按钮，写代码

 

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")
--  作者：蓝才文百
--  发布时间：2017/4/20 22:29:00
--  
可以了，非常感谢有点色版主！