[求助] 导出数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 导出数据问题

共有2692人关注过本帖树形打印复制链接主题：[求助] 导出数据问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/3 8:59:00 [显示全部帖子]

加入一列表达式列，然后导出表达式列

iif(逻辑列=true, '*', '')

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/3 9:15:00 [显示全部帖子]

没有其它方法，除非自己编写代码一行一行导出。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/3 9:16:00 [显示全部帖子]

你可以动态添加临时表达式列，然后再导出。

http://www.foxtable.com/help/topics/1428.htm

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/2/3 9:46:00 [显示全部帖子]

Dim dcs As Object = DataTables("表A").DataCols
Dim dctemp As New List(Of String)
For i As Integer = 0 To dcs.count - 1
    Dim dc As DataCol = dcs(i)
    If dc.IsBoolean Then
        DataTables("表A").DataCols.Add(dc.Name & "_临时", Gettype(String), 10, "iif(" & dc.name & "=True, '*', '')", dc.name)
        dctemp.Add(dc.Name & "_临时")
    End If
Next

msgbox("已生成")

For Each temp As String In dctemp
DataTables("表A").DataCols.Delete(temp)
Next