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


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

主题：关于导出Excel问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于导出Excel问题  发帖心情 Post By：2020/8/9 18:02:00 [只看该作者]

导出按钮代码如下？
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count =0 Then
    msgbox("不能所有列都不选")
    Return
Else
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        If sjdcxzb="fa piao库存资料表" Then
            Dim post As Table = Tables("导出数据操作窗体_Table1")
            Dim str As String = post.getColVisibleWidth
            If lieming.value > "" Then
                For Each c As Col In post.Cols
                    c.visible = False
                Next
                For Each s As String In lieming.value.split(",")
                    post.cols(s).Visible = True
                Next
            End If
            post.SaveExcel(dlg.FileName, "fa piao库存资料表")
            post.SetColVisibleWidth(str)                   
        End If
    End If
End If
e.Form.Close



图片点击可在新窗口打开查看此主题相关图片如下：截图10.png
图片点击可在新窗口打开查看


其中有一个逻辑值，导出前显示格式是：“是”与“否”导出Excel后显示格式为：“True”与“False” 怎么设置成显示格式为“是”与“否”呢？
[此贴子已经被作者于2020/8/9 18:02:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/9 20:47:00 [只看该作者]

方法1、这种方式导：http://www.foxtable.com/webhelp/topics/1148.htm，可以随意设置格式和数据
2、导出后使用代码替换
Dim Book As New XLS.Book("D:\问题\111.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
    If Sheet(n,5).Text = "1" '假设逻辑列是第6列
        Sheet(n,5).Value = "是"
    Else
        Sheet(n,5).Value = "否"
    End If
Next
Book.Save("D:\问题\111.xls")
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/9 21:13:00 [只看该作者]

 If Sheet(n,5).Text = "1" '假设逻辑列是第6列

蓝老师关键是逻辑列是一个动态的怎么获取呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/9 21:19:00 [只看该作者]

遍历table的列判断哪一个是逻辑列：http://www.foxtable.com/webhelp/topics/0561.htm

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/9 21:41:00 [只看该作者]

For Each dc As DataCol In DataTables("表A").datacols
    If dc.name = "是否填开" Then
    ？怎么获取列位置呢？
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/9 22:39:00 [只看该作者]

判断table，不是datatable

下表是Col的常用属性：

属性名说明
Name返回列的名称
Index返回列的位置
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/9 23:06:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：截图11.png
图片点击可在新窗口打开查看

导出的列和列的顺序是动态的，这样的话如若导出的是所有列正常，如果不是所有列会报错的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/9 23:18:00 [只看该作者]

导出前，调用到SaveExcel的时候，显示的列和列的顺序肯定是固定的

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/8/9 23:25:00 [只看该作者]

数据表列数固定的，复选列表框CheckedListBox选择的列名和顺序是动态的，现在判断的是数据表中的列顺序，应该不对吧？是不是得判断“复选列表框”所选择的顺序吧

导出按钮代码如下：

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox")
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If lieming.CheckedIndices.Count =0 Then
    msgbox("不能所有列都不选")
    Return
Else
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        If sjdcxzb="fa piao库存资料表" Then
            Dim post As Table = Tables("导出数据操作窗体_Table1")
            Dim str As String = post.getColVisibleWidth
            If lieming.value > "" Then
                For Each c As Col In post.Cols
                    c.visible = False
                Next
                For Each s As String In lieming.value.split(",")
                    post.cols(s).Visible = True
                Next
            End If
            post.SaveExcel(dlg.FileName, "fa piao库存资料表")
            post.SetColVisibleWidth(str)                   
        End If
    End If
End If
e.Form.Close

现在要实现的是如果导出的数据列包含“是否已填开”逻辑列，就将其显示格式设置为“是”或“否”，否则不设置
[此贴子已经被作者于2020/8/9 23:30:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110758 积分：563716 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/10 8:18:00 [只看该作者]

                For Each s As String In lieming.value.split(",")
                    post.cols(s).Visible = True
                Next
            End If
            post.SaveExcel(dlg.FileName, "fa piao库存资料表")
dim idx as integer = -1
For Each dc As Col In post.cols
    If dc.name = "是否填开" Then
    idx = dc.index
exit for
    End If
Next
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count -1
    If Sheet(n,idx ).Text = "1" '假设逻辑列是第6列
        Sheet(n,idx ).Value = "是"
    Else
        Sheet(n,idx ).Value = "否"
    End If
Next
Book.Save(dlg.FileName)
            post.SetColVisibleWidth(str)                   
        End If
    End If
End If
e.Form.Close
 回到顶部
总数 25 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询