以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口打印代码 vars("khmc")=e.Form.Controls("khname").text  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66145)
--  作者：jswjyjf
--  发布时间：2015/3/31 8:58:00
--  窗口打印代码 vars("khmc")=e.Form.Controls("khname").text

窗口打印代码

 

vars("khmc")=e.Form.Controls("khname").text
vars("rqa")=e.Form.Controls("startdate").text
vars("rqb")=e.Form.Controls("enddate").text
Dim Book As New XLS.Book(ProjectPath & "Attachments\\查询.xls")
Dim fl As String = ProjectPath & "Reports\\查询.xls"
\'\'
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(0,1).Value ="【" & [!khmc] & "】"

 红色出错了

 

 
--  作者：Bin
--  发布时间：2015/3/31 8:59:00
--  
Sheet(0,1).Value ="[!khmc]"
--  作者：有点甜
--  发布时间：2015/3/31 9:03:00
--  

 直接写

 

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(0,1).Value ="【" & vars("khmc") & "】"

--  作者：jswjyjf
--  发布时间：2015/3/31 9:12:00
--  
Sheet(0,1).Value ="[!khmc]" & "[!rqa] & "至" & [!rq2] &"统计年表">   错在哪里
--  作者：Bin
--  发布时间：2015/3/31 9:16:00
--  
Sheet(0,1).Value ="<" & vars("khmc") & vars("rqa") & "至" & vars("rq2") &"统计年表> "
[此贴子已经被作者于2015/3/31 9:15:40编辑过]
--  作者：jswjyjf
--  发布时间：2015/3/31 9:17:00
--  
Sheet(0,1).Value ="【" & vars("khmc") & "】" & vars("rqa") & "至" & vars("rqb") & "统计表"  可以了