以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教:全局变量在代码中的引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2504)
|
-- 作者: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编辑过]
|
-- 作者:lxl
-- 发布时间:2009/4/18 16:59:00
--
没错啊。应该是这样引用。
|
-- 作者:yangming
-- 发布时间:2009/4/18 17:24:00
--
可是在点按钮后会报错啊 请看下图 此主题相关图片如下:未标题-1.jpg
[此贴子已经被作者于2009-4-18 17:30:04编辑过]
|
-- 作者:cpayinyuan
-- 发布时间:2009/4/18 17:29:00
--
以下是引用yangming在2009-4-18 17:24:00的发言:
可是在点按钮后会报错啊
错误提示是什么?是否你的这两个全局变量有问题(不是合法的目录文件名)? 最好把你的这两个全局变量的值和错误提示贴出来,大家一块分析原因.
[此贴子已经被作者于2009-4-18 17:29:53编辑过]
|
-- 作者:yangming
-- 发布时间:2009/4/18 17:31:00
--
请看三楼
此主题相关图片如下:未标题-1.jpg
此主题相关图片如下:未标题-2.jpg
上面二图是设置及输入的
[此贴子已经被作者于2009-4-18 17:33:07编辑过]
|
-- 作者:cpayinyuan
-- 发布时间:2009/4/18 17:34:00
--
以下是引用yangming在2009-4-18 17:24:00的发言:
可是在点按钮后会报错啊 请看下图 此主题相关图片如下:未标题-1.jpg
[此贴子已经被作者于2009-4-18 17:30:04编辑过]
保存位置有问题.中间的点好像是全角. 不知对不对?
|
-- 作者:yangming
-- 发布时间:2009/4/18 17:59:00
--
确实是因为那个小点是全角的原因,谢谢各位,呵呵
[此贴子已经被作者于2009-4-18 18:00:22编辑过]
|