锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net报表工具 vba报表系统( 二 )

IT技术Setdata


Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub
Private Sub Command2_Click()
If Dir("D:\temp\excel.bz")"" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub
2、在D盘根目录上建立一个名为Temp的子目录，在Temp目录下建立一个名为"bb.xls"的EXCEL文件 。
3、在"bb.xls"中打开Visual Basic编辑器，在工程窗口中点鼠标键选择插入模块 ， 在模块中输入入下程序存盘：
Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub
4、运行VB程序，点击EXCEL按钮可以打开EXCEL系统，打开EXCEL系统后，VB程序和EXCEL分别属两个不同的应用系统 ， 均可同时进行操作，由于系统加了判断，因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开 。如果在EXCEL中关闭EXCEL后再点EXCEL按钮，则会重新打开EXCEL 。而无论EXCEL打开与否，通过VB程序均可关闭EXCEL 。这样就实现了VB与EXCEL的无缝连接 。
vb.net报表设置记录行数Visualbasic代码编辑器没有这个功能vb.net报表工具，但可以用第三方vb.net报表工具的编辑软件Emedit来实现这个功能 。
1、用Emedit打开*.frm文件 。
2、点工具vb.net报表工具，当前配置属性 ， 然后勾选显示行号即可 。
fastreport在VB.NET使用TMemoryStream*s;
try
{
s=newTMemoryStream;
frReport1-SaveToStream(s);
//以下代码为新增报表
Query1-SQL-Clear();
Query1-SQL-Add("insertintotb_report(r_id,r_desc,r_data)Values(报表编号,'报表说明',',:r_data)");
//Query1-ParamByName("r_sql")-AsString=FSQL;
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
//以下代码为更新报表
Query1-SQL-Clear()
Query1-SQL-Add("updatetb_reportsetr_data=https://www.04ip.com/post/:r_datawherer_id=报表编号");
Query1-ParamByName("r_data")-LoadFromStream(s,ftBlob);
Query1-Prepare();
Query1-ExecSQL();
}
__finally
{
deletes;
s=NULL;
}
----------
确实是语言不对啊.因为自己在看你的问题的时候,也尝试自己去做了.不过delphi用这种方法可行,其它的语言应该也不会查到哪去吧~
vb.net reportviewe rdlc报表With Me.ReportViewer1'初始化报表
.Dock = DockStyle.Fill
.LocalReport.DataSources.Clear()
.LocalReport.ReportPath = "Report1.rdlc"
.RefreshReport()
End With
报表在设计时，不一定要绑定数据源，但在窗体加载时，需要初始化报表控件，以上代码可以放在窗体加载的Load事件里，供你参考 。
如何用VB.NET做水晶报表?CrystalReportViewer
dataset 定义数据源
.rpt文件描述具体报表样式
再加一个调用报表的FORM，就可以实现简单的报表功能
Option Explicit

推荐阅读


上一篇：js中的除法后的四舍五入，js整数四舍五入

下一篇：扫描文件怎么换成word，扫描文件如何变成word文档