以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教:全局变量在代码中的引用  (http://www.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编辑过]