- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 导出数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63986)
-- 发布时间：2015/2/3 8:58:00
-- [求助] 导出数据问题
逻辑列，逻辑格式改成 “*；”，表中也显示*，但是导出后还是显示FALSE和TRUE，请问这个怎么解决
-- 发布时间：2015/2/3 8:59:00
--
加入一列表达式列，然后导出表达式列
iif(逻辑列=true, \'*\', \'\')
-- 发布时间：2015/2/3 9:13:00
--
甜老师，但是我的逻辑列有很多列，每列加表达式列太多了啊，有没有其他办法啊？
-- 发布时间：2015/2/3 9:15:00
--
没有其它方法，除非自己编写代码一行一行导出。
-- 发布时间：2015/2/3 9:16:00
--
你可以动态添加临时表达式列，然后再导出。
http://www.foxtable.com/help/topics/1428.htm
-- 发布时间：2015/2/3 9:28:00
--
帮我看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：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
-- 发布时间：2015/2/3 9:55:00
--
代码写在哪里啊
-- 发布时间：2015/2/3 10:05:00
--
写在你导出按钮那里啊。
导出参考这里 http://www.foxtable.com/help/topics/0683.htm
-- 发布时间：2015/2/3 10:16:00
--
写了啊，但是没有用啊