Foxtable(狐表)用户栏目专家坐堂 → [求助]表如何只导出用户所选的那几行,并保存成一个excel文件?


  共有1752人关注过本帖树形打印复制链接

主题:[求助]表如何只导出用户所选的那几行,并保存成一个excel文件?

帅哥哟,离线,有人找我吗?
蓝才文百
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:400 积分:2486 威望:0 精华:0 注册:2015/1/31 23:19:00
[求助]表如何只导出用户所选的那几行,并保存成一个excel文件?  发帖心情 Post By:2017/4/20 21:33:00 [只看该作者]

表导出成excel,用SaveExcel方法,如果只是保存用户 所选择的那几行记录,这个要如何写代码?谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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")


 回到顶部
帅哥哟,离线,有人找我吗?
蓝才文百
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:400 积分:2486 威望:0 精华:0 注册:2015/1/31 23:19:00
  发帖心情 Post By:2017/4/20 22:29:00 [只看该作者]

可以了,非常感谢有点色版主!

 回到顶部