Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请教:全局变量在代码中的引用

1楼
yangming 发表于:2009/4/18 16:33:00

我设了二个全局变量,在打印EXCEL的代码中是这样加入的:请看下面的代码:
Dim dt As Table = Tables(Vars("表名"))
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red '样式的背景颜色设为红色
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
 Next
'打开工作簿
Book.Save(Vars("保存位置"))
Dim Proc As New Process
Proc.File = Vars("保存位置")
Proc.Start()

 第一行"表名"这个变量引用对了,但是倒数第四行和倒数第二行的"保存位置"确不对,不知如何才能正确引用?

[此贴子已经被作者于2009-4-18 16:34:25编辑过]
2楼
lxl 发表于:2009/4/18 16:59:00

没错啊。应该是这样引用。

3楼
yangming 发表于:2009/4/18 17:24:00

可是在点按钮后会报错啊
请看下图


图片点击可在新窗口打开查看此主题相关图片如下:未标题-1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-4-18 17:30:04编辑过]
4楼
cpayinyuan 发表于:2009/4/18 17:29:00
以下是引用yangming在2009-4-18 17:24:00的发言:

可是在点按钮后会报错啊

错误提示是什么?是否你的这两个全局变量有问题(不是合法的目录文件名)?
最好把你的这两个全局变量的值和错误提示贴出来,大家一块分析原因.

[此贴子已经被作者于2009-4-18 17:29:53编辑过]
5楼
yangming 发表于:2009/4/18 17:31:00
请看三楼

图片点击可在新窗口打开查看此主题相关图片如下:未标题-1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:未标题-2.jpg
图片点击可在新窗口打开查看

上面二图是设置及输入的
[此贴子已经被作者于2009-4-18 17:33:07编辑过]
6楼
cpayinyuan 发表于:2009/4/18 17:34:00
以下是引用yangming在2009-4-18 17:24:00的发言:

可是在点按钮后会报错啊
请看下图


图片点击可在新窗口打开查看此主题相关图片如下:未标题-1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-4-18 17:30:04编辑过]

保存位置有问题.中间的点好像是全角. 不知对不对?

7楼
yangming 发表于:2009/4/18 17:59:00
确实是因为那个小点是全角的原因,谢谢各位,呵呵
[此贴子已经被作者于2009-4-18 18:00:22编辑过]
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02800 s, 2 queries.