- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助！关于Excel报表的导出问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88329)
-- 发布时间：2016/8/1 8:47:00
-- 求助！关于Excel报表的导出问题
求助！我在Foxtable的某一列设置一个数据字典，使得“0”对应于“正常”，“1”对应于“不正常”，但是在导出到Excel表的时候那一列只能显示0和1，请问该如何设置才可以让Excel表里的显示和Foxtable里的一样？
-- 发布时间：2016/8/1 9:31:00
--
Dim fl As String = "d:\\test.xls"
Tables("表A").SaveExcel(fl, "12345")
Dim Book As New XLS.Book(fl)
Dim s As XLS.Sheet = book.Sheets("12345")
For j As Integer = 0 To s.Cols.Count - 1
If s(0, j).Text = "第一列" Then
For i As Integer = 1 To s.Rows.Count - 1
If s(i, j).Text = "0" Then
s(i, j).Value = "AAA"
ElseIf s(i, j).Text = "1" Then
s(i, j).Value = "BBB"
End If
Next
End If
Next
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
-- 发布时间：2016/8/2 10:25:00
--
请问这段代码加在哪里？
-- 发布时间：2016/8/2 10:59:00
--
做个窗口按钮，或者菜单按钮
如果用模板导出可以参考表达式“IIF”的用法http://www.foxtable.com/webhelp/scr/0102.htm
-- 发布时间：2016/8/2 15:09:00
--
多次修改了参数，但是只能实现导出Excel表的功能，0和1没有转化为正常和不正常，求指导！
-- 发布时间：2016/8/2 15:19:00
--
上传例子
-- 发布时间：2016/8/2 15:44:00
--
在运行维护管理表（app用）那里，感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:运维部.rar |
-- 发布时间：2016/8/2 15:57:00
--
看看生成的Excel的列标题是什么就知道了
Dim fl As String = "d:\\test.xls"
Tables("T101").SaveExcel(fl, "73487")
Dim Book As New XLS.Book(fl)
Dim s As XLS.Sheet = book.Sheets(0)
For j As Integer = 0 To s.Cols.Count - 1
If s(0, j).Text = "设备状态" Then
For i As Integer = 1 To s.Rows.Count - 1
If s(i, j).Text = "0" Then
s(i, j).Value = "正常"
ElseIf s(i, j).Text = "1" Then
s(i, j).Value = "不正常"
End If
Next
End If
Next
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()