[求助]呼叫大红袍老师！导出逻辑列怎么显示是或者否，不用报表！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]呼叫大红袍老师！导出逻辑列怎么显示是或者否，不用报表！！！

共有2406人关注过本帖树形打印复制链接主题：[求助]呼叫大红袍老师！导出逻辑列怎么显示是或者否，不用报表！！！

klg1011

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

加好友

发短信

等级：小狐帖子：320 积分：2798 威望：0 精华：0 注册：2013/1/30 17:49:00

[求助]呼叫大红袍老师！导出逻辑列怎么显示是或者否，不用报表！！！ 发帖心情

Post By：2016/4/20 12:01:00 [显示全部帖子]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Tables("销售台账").SaveExcel(dlg.FileName, "销售台账") '保存文件

End If

1、我要使用上面的代码导出数据，而且逻辑列数据能显示为是或者否，怎么写代码？

2、excel报表有点繁琐，

3、类似下面的代码导出的数据列位置和table里显示的位置不一致（这点应该是和我创建表时增加新列的先后顺序有关），而且数据字体看上去很不友好，所以我就想在上面代码的基础上修改。

'For r As Integer = 0 To dt.Rows.Count - 1 '填入数据

'For c As Integer = 0 To dt.Cols.Count -1

'If dt.Cols(c).IsBoolean Then

'If dt.rows(r)(c)=True Then

'Sheet(r + 1, c).Value = "是"

'End If

'Else

'Sheet(r +1, c).Value = dt.rows(r)(c)

'End If

'Next

[此贴子已经被作者于2016/4/20 13:32:54编辑过]

klg1011

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

加好友

发短信

等级：小狐帖子：320 积分：2798 威望：0 精华：0 注册：2013/1/30 17:49:00

Post By：2016/4/20 13:00:00 [显示全部帖子]

大红袍老师，原来导出后excel表里逻辑列显示的是TRUE或FALSE,但是我把代码改成下面的了，还是不行

For j As Integer = 0 To sheet.cols.count-1
            If sheet(i, j).Text = "TRUE" Then
                sheet(i, j).Value = "是"
            ElseIf sheet(i, j).Text = "FALSE" Then
                sheet(i,j).value = "否"
            End If
        Next

如果用1 或者 0，倒是可以把逻辑列改成是、否，但是表里面其他数据列有的是0的，这样也被改成否了。