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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 导出逻辑列

共有2881人关注过本帖树形打印复制链接主题：[求助] 导出逻辑列

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

[求助] 导出逻辑列 发帖心情

Post By：2015/6/5 5:04:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:001.xls

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3 - 副本.table

导出逻辑列时，可以把TRUE替换成*，其它替换成空白吗？

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 8:28:00 [显示全部帖子]

有没有事例啊可以参考，

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 8:51:00 [显示全部帖子]

这个是直接写在窗口导出代码中吗？

这个应该怎么写呢？没有看懂代码？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

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)
    Next
    If dt.rows(r)("折扣") >= 0.15 Then '如果折扣大于等于0.15
        Sheet(r + 1,dt.Cols("折扣").Index).Style = Style '设置折扣单元格的样式
    End If 怎么改？？？？
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 9:06: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

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(i)("检查1","切边1")=True Then 没有定义啊？？？

Sheet(r + 1,dt.Cols("检查1","切边1").Index).Value = "*"

End If

'打开工作簿

Book.Save("c:\reports\test.xls")

Dim Proc As New Process

Proc.File = "c:\reports\test.xls"

Proc.Start()

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 9:38:00 [显示全部帖子]

不行啊

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 10:09:00 [显示全部帖子]

要导出制定位置，代码加在哪里呢

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 10:15:00 [显示全部帖子]

Dim dt As Table = Tables("shishang")

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

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

'打开工作簿

If MessageBox.Show("确定要导出所选数据吗?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then

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

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

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

Tables("shishang").SaveExcel(dlg.FileName, "shishang") '保存文件

End If

msgbox("导出数据成功!")

End If

wangyinming

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

加好友

发短信

等级：童狐帖子：286 积分：2345 威望：0 精华：0 注册：2013/8/30 3:37:00

Post By：2015/6/5 10:21:00 [显示全部帖子]

谢谢！下回学习一下EXCEl报表

下一主题 >> << 上一主题

主题：[求助] 导出逻辑列