以文本方式查看主题

-  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=95583)
--  作者：程程
--  发布时间：2017/1/24 10:58:00
--  [求助]新手求大神帮忙改一下代码，实在是不懂了。。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:质量管理（原老大试改） .foxdb

木质素纤维窗口里，分别有四个按钮，生成试验报告，生成台账报告，打印试验报告，打印台账。请大神帮我看看，我的代码怎么弄都不对，怎样写才能让这四个按钮都达到它们的作用？？？小白真心求助啊。。。。（此为开发版）
--  作者：有点色
--  发布时间：2017/1/24 11:14:00
--  
Dim dr As DataRow
Dim dlzh As String = Forms("主界面").Controls("姓名").Text
dlzh = dlzh.Trim("登","录","账","号","[","]",":"," ")
DataTables("账户管理").LoadFilter= "[用户账号] = \'" & dlzh & "\'"
DataTables("账户管理").Load
dr = DataTables("账户管理").Find("[用户账号] = \'" & dlzh & "\'")
If dr("木质素纤维") = False Then
    MessageBox.Show("对不起!您没有生成报表的权限!", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
    Dim flg As New SaveExcelFlags
    flg.RowNumber = True
    flg.CellStyle = True
    Tables("木质素纤维").SaveExcel("D:\\excel\\木质素纤维试验报告F.xls","木质素纤维试验报告F_Table1",flg)
    Dim Proc As New Process
    Proc.File = "D:\\excel\\木质素纤维试验报告F.xls"
    Proc.Start()
End If
--  作者：程程
--  发布时间：2017/1/24 11:32:00
--  
我粘贴过去了 还是不好用啊？另，打印报表的按钮改如何改呢？
--  作者：有点色
--  发布时间：2017/1/24 11:37:00
--  

你给的例子，和你要做的东西根本就不匹配。

 

你的 木质素纤维试验报告F 窗口呢？

 

你生成的路径 要和你打印的路径一致。

 

请先看懂你写的代码，看不懂，先学习一下语法基础。
--  作者：程程
--  发布时间：2017/1/24 11:45:00
--  
木质素纤维试验报告F 不是窗口 它是一个excel报表的名称 从代码中哪里看出来它是个窗口呢？ 木质素纤维是窗口名称  我只是想让大神帮我改一下，然后我照葫芦画瓢 来就此理解这段代码 新手不懂的地方多 您不能理解的地方还请您再理解一下。
--  作者：有点色
--  发布时间：2017/1/24 11:46:00
--  

2楼代码没问题。

 

打印代码直接写

 

Dim Proc As New Process
Proc.File = "D:\\excel\\木质素纤维试验报告F.xls"
Proc.Start()
--  作者：程程
--  发布时间：2017/1/24 12:05:00
--  
谢谢 我会再好好学习一下的