Foxtable(狐表)用户栏目专家坐堂 → 专业报表代码生成器,具有代码查看功能哟


  共有16591人关注过本帖平板打印复制链接

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

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
专业报表代码生成器,具有代码查看功能哟  发帖心情 Post By: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编辑过]

[本帖被加为精华]
 回到顶部
总数 15 1 2 下一页