以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导出表的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104685)

--  作者:chuguiting
--  发布时间:2017/8/3 10:15:00
--  导出表的问题
老师您好!我想在导出表中显示表结构是“逻辑型”的文字,比如:合格或不合格。
--  作者:有点甜
--  发布时间: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
--  发布时间:2017/8/3 16:23:00
--  
谢谢老师的回答!我用的是“杂项”高速导出“excel”表。
--  作者:有点甜
--  发布时间: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
--  发布时间:2017/8/4 13:39:00
--  
谢谢老师,将来会用上的。