以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表代码生成器,具有代码查看功能哟  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3694)
--  作者：yangming
--  发布时间：2009/7/26 12:43:00
--  专业报表代码生成器,具有代码查看功能哟
勾勾选选也能做专业报表?看看本程序的功能吧:

  
    专业报表生成器使用说明

   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
[此贴子已经被作者于2009-7-27 9:31:09编辑过]
--  作者：狐狸爸爸
--  发布时间：2009/7/26 13:21:00
--  
我顶
--  作者：mr725
--  发布时间：2009/7/26 13:27:00
--  

真是不错，先收藏 。
--  作者：kylin
--  发布时间：2009/7/26 14:17:00
--  
收藏，谢谢
--  作者：老有所乐
--  发布时间：2009/7/26 14:34:00
--  
收藏学习
--  作者：qtcks
--  发布时间：2009/7/26 14:57:00
--  
指定打印机还要设置设置哦。
--  作者：yangming
--  发布时间：2009/7/26 15:13:00
--  
以下是引用qtcks在2009-7-26 14:57:00的发言：
指定打印机还要设置设置哦。

还要怎么设置?不明白
--  作者：菜鸟foxtable
--  发布时间：2009/7/26 15:23:00
--  
收藏
--  作者：qtcks
--  发布时间：2009/7/26 15:26:00
--  

指定打印机，下拉选项中，没有将本机的所有打印机显示出来。
--  作者：yangming
--  发布时间：2009/7/26 15:38:00
--  

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

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

For Each p As String in InstalledPrinters
    Output.Show(p)
Next
[此贴子已经被作者于2009-7-26 15:38:57编辑过]