Foxtable(狐表)用户栏目专家坐堂 → [求助]excel报表导出逻辑列怎样能变成中文显示{已解决}


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

主题:[求助]excel报表导出逻辑列怎样能变成中文显示{已解决}

帅哥哟,离线,有人找我吗?
a9858
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:251 积分:2392 威望:0 精华:0 注册:2011/11/12 10:39:00
[求助]excel报表导出逻辑列怎样能变成中文显示{已解决}  发帖心情 Post By:2013/9/1 14:08:00 [只看该作者]

在狐表里有一逻辑列逻辑格式为“现销;赊销”用excel生成报表后,报表生成的逻辑列变成true和false,能不能让excel显示“现销”或“赊销”呢


[此贴子已经被作者于2013-9-2 7:33:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2013/9/1 20:15:00 [只看该作者]

可以 ,你参考一下帮助 :

导出数据

 

 

Dim dt As Table = Tables("订单")
Dim
Book As New XLS.Book '定义一个Excel工作簿
Dim
Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
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
        Sheet(r +1, c).Value = dt.rows(r)(c)
        If
dt.rows(r)("现销;赊销") = TRUE Then 

        Sheet(r +1, c).Value ="现销" 

     else 

        Sheet(r +1, c).Value ="赊销"

     End If

Next

Next

'打开工作簿

Book.Save("c:\reports\test.xls")
Dim
Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/9/1 21:30:00 [只看该作者]

 简单的做法,是你在表里增加一个文本列,这是个表达式列,用来显示逻辑列表示的内容。

 那么在报表模板里填这个文本列就行了。

 如果要复杂一下,就需要自己编码实现了,比较麻烦的。

 回到顶部
帅哥哟,离线,有人找我吗?
yan2006l
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:3214 威望:0 精华:2 注册:2011/9/10 21:35:00
很简单  发帖心情 Post By:2013/9/2 1:51:00 [只看该作者]

<IIF([逻辑列名] =true, "现金", "欠款")>

 

这个不行你砍我


 回到顶部
帅哥哟,离线,有人找我吗?
a9858
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:251 积分:2392 威望:0 精华:0 注册:2011/11/12 10:39:00
  发帖心情 Post By:2013/9/2 7:15:00 [只看该作者]

谢谢各位帮忙,我试一下,yan2006l 兄真耿直啊

 回到顶部