Foxtable(狐表)用户栏目专家坐堂 → 窗口打印代码 vars("khmc")=e.Form.Controls("khname").text


  共有3646人关注过本帖平板打印复制链接

主题:窗口打印代码 vars("khmc")=e.Form.Controls("khname").text

帅哥哟,离线,有人找我吗?
jswjyjf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
窗口打印代码 vars("khmc")=e.Form.Controls("khname").text  发帖心情 Post By:2015/3/31 8:58:00 [只看该作者]

窗口打印代码

 

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] & "】"

 红色出错了

 

 


 回到顶部