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

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

主题：[求助]新手求大神帮忙改一下代码，实在是不懂了。。