[求助]新手求大神帮忙改一下代码，实在是不懂了。。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新手求大神帮忙改一下代码，实在是不懂了。。

共有1944人关注过本帖树形打印复制链接主题：[求助]新手求大神帮忙改一下代码，实在是不懂了。。

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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