Foxtable(狐表)用户栏目专家坐堂 → 导出表的问题


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

主题:导出表的问题

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


加好友 发短信
等级:婴狐 帖子:5 积分:95 威望:0 精华:0 注册:2017/7/31 11:44:00
导出表的问题  发帖心情 Post By:2017/8/3 10:15:00 [只看该作者]

老师您好!我想在导出表中显示表结构是“逻辑型”的文字,比如:合格或不合格。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 11:54:00 [只看该作者]

1、你如何导出表的?用什么方法什么代码?

 

2、可以用excel模板的方式导出表

 

http://www.foxtable.com/webhelp/scr/2877.htm

 

http://www.foxtable.com/webhelp/scr/1388.htm

 

[此贴子已经被作者于2017/8/3 11:55:38编辑过]

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


加好友 发短信
等级:婴狐 帖子:5 积分:95 威望:0 精华:0 注册:2017/7/31 11:44:00
  发帖心情 Post By:2017/8/3 16:23:00 [只看该作者]

谢谢老师的回答!我用的是“杂项”高速导出“excel”表。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 17:32:00 [只看该作者]

 自己做个菜单或者按钮导出

 

Dim dt As Table = CurrentTable
Dim dlg As new SaveFileDialog
dlg.Filter = "excel文件|*.xls"
dlg.filename = dt.name
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book '定义一个Excel工作簿
    Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
    sheet.name = dt.name
    For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
        Sheet(0, c).Value = dt.Cols(c).Name
    Next
    For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
        For c As Integer = 0 To dt.Cols.Count -1
            If dt.cols(c).IsBoolean Then
                Dim ary() As String = dt.grid.cols(dt.cols(c).name).format.split(";")
                If ary.length = 2 Then
                    If dt.rows(r)(c) = True Then
                        Sheet(r +1, c).Value = ary(0)
                    Else
                        Sheet(r +1, c).Value = ary(1)
                    End If
                Else
                    Sheet(r +1, c).Value = dt.rows(r)(c)
                End If
            Else
                Sheet(r +1, c).Value = dt.rows(r)(c)
            End If
        Next
    Next
    '打开工作簿
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If


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


加好友 发短信
等级:婴狐 帖子:5 积分:95 威望:0 精华:0 注册:2017/7/31 11:44:00
  发帖心情 Post By:2017/8/4 13:39:00 [只看该作者]

谢谢老师,将来会用上的。

 回到顶部