主题：专业报表代码生成器,具有代码查看功能哟

勾勾选选也能做专业报表?看看本程序的功能吧:

  
    专业报表生成器使用说明

   1.'查看'按钮的功能:便于新手学习和掌握各选项的代码.

   2.'本页合成'按钮的功能:便于新手学习和掌握各页代码的合成情况.

   3.'查看代码'按钮的功能:便于用户在勾选或输入相关选项后,自动生成报表代码,如复制代码到

      命令窗口中,只需点'复制代码'按钮,然后到命令窗口中按:'ctrl + v ' 便可以复制.

   4.'生成报表'按钮的功能:使用本程序生成报表,也便于用户掌握相关控件在代码中的关联及使用方法.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:专业报表生成器.table

上述文件中,再加上下列代码,放在在窗口的

AfterLoad事件中,便可以自动设置本程序中所有表名及电脑中所有打印机名的列表项目了

For each bm as DataTable In DataTables
dim Tex As String
    Tex= Tex & "|" & bm.name
Dim com7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
com7.ComboList = Tex
Next
For Each p As String in InstalledPrinters
dim Tex1 As String
Tex1= Tex1 & "|" & p
Dim com6 As WinForm.ComboBox= e.Form.Controls("ComboBox6")
com6.ComboList = Tex1
Next

还要怎么设置?不明白

噢,这个啊,可以自己输到列表项目中,呵呵
也可以在命令窗口中获取电脑中所有打印机

在命令窗口执行下面的代码，可以列出所有已经安装的打印机名称：

For Each p As String in InstalledPrinters
    Output.Show(p)
Next

也可做一个按钮来获取打印机
Forms("窗口1").Show()
For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
Tex1.value = p & Chr(13) & Chr(10) &  _
Tex1.value
Next
取得后复制到控件的自定义项目中便可以

还可以在窗口的

AfterLoad事件中放入以下代码,便可以自动设置列表项目了

For Each p As String in InstalledPrinters
Dim Tex1 As WinForm.TextBox = e.Form.Controls("TextBox11")
Tex1.value = p & Chr(13) & Chr(10) &  _
Tex1.value
Dim com6 As WinForm.ComboBox
com6 = e.Form.Controls("ComboBox6")
com6.ComboList = Tex1.value &"|"
Next

在窗口的

AfterLoad事件中放入以下代码,便可以自动设置本程序中所有表名及电脑中所有打印机名的列表项目了

For each bm as DataTable In DataTables
dim Tex As String
    Tex= Tex & "|" & bm.name
Dim com7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
com7.ComboList = Tex
Next
For Each p As String in InstalledPrinters
dim Tex1 As String
Tex1= Tex1 & "|" & p
Dim com6 As WinForm.ComboBox= e.Form.Controls("ComboBox6")
com6.ComboList = Tex1
Next