vb点虐做数据报表 vb中生成数据表格

vb点虐 reportviewe rdlc报表

With Me.ReportViewer1 '初始化报表

成都创新互联专业为企业提供湖南网站建设、湖南做网站、湖南网站设计、湖南网站制作等企业网站建设、网页设计与制作、湖南企业网站模板建站服务，10年湖南做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

.Dock = DockStyle.Fill

.LocalReport.DataSources.Clear()

.LocalReport.ReportPath = "Report1.rdlc"

.RefreshReport()

End With

报表在设计时，不一定要绑定数据源，但在窗体加载时，需要初始化报表控件，以上代码可以放在窗体加载的Load事件里，供你参考。

如何用VB.NET做水晶报表?

CrystalReportViewer

dataset 定义数据源

.rpt 文件描述具体报表样式

再加一个调用报表的FORM，就可以实现简单的报表功能

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　Screen.MousePointer = vbHourglass

　'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

　CRViewer91.ViewReport

　Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

　CRViewer91.Top = 0

　CRViewer91.Left = 0

　CRViewer91.Height = ScaleHeight

　CRViewer91.Width = ScaleWidth

End Sub

VB点虐中如何制作水晶报表？

这个专业我也学得不是很好，用书上得例子吧。

某公司尽力需要了解公司在全国各地得销售情况，设计一个水晶报表。统计个地区得销售总额和全国总额

准备工作

用 SQL server 2000 创建一个数据库company 在该数据库中创建一个表Sales.用于储存区域销售数据

在表Sales 中添加若干条记录

设计报表

打开 Visual Studio.NET创建名为 Salesreport得 WINDOWS应用程序将Form1.cs 名更改为 frmSalesReport.cs

frmSalesReport窗体得属性设置里。吧 frmSalesReport.cs得Text属性更改为"区域销售报表"

把NAME属性更改为frmSalesReport。

在 VisualStudio.NET 菜单中选择项目添加新项。在"添加新项"窗口得“类别”区域扩展 “本地项目项”，选择数据，在"模板"区域选择"数据集" 在"名称"那将Dataset1.xsd改名 SalesDetaset.xsd

单击"打开" 将生成一个新得结构文件 SalesDataset.xsd 该文件将显示在 ADO.NET数据集设计器中。

用VB.NET结合Excel设计统计生产报表

用EXCEL做企业生产报表的理由 Excel表格生成和公式设置十分强大便利是一个强有力的信息分析与处理工具特别是EXCEL的公式函数 VBA语言功能极其强大我试用过其他电子表格软件在功能上和EXCEL根本没有可比性 Visual Studio NET也同样是MicroSoft的产品 Visual Studio NET调用EXCEL做企业报表十分方便证明当时我选Visual Studio NET作为首选开发工具是正确的软件构思先在EXCEL里定制好名为《统计表》的样表（模版）在样表中设置好各种格式填写好固定项在窗体上放很三个控件两个DateTimePicker控件用来选择开始统计时间和结束统计时间一个Button以启动程序软件欲实现的功能是点击Button 自动查找符合日期符合日期范围的生产计划工作表然后利用SortedList统计各个办事处的计划数量和未完成数量及各个产品型号的计划数量和未完成数量再把SortedList的数据读出写到《统计表》中这里要注意的是各个生产报表格式必须规范统一因为程序是按照固定单元格位置读取数据的 SortedList类除了具备VB NET调用EXCEL的基础知识外本例主要用到SortedList类 SortedList类表示键/值对的集合这些键和值按键排序并可按照键和索引访问 SortedList 是 Hashtable 和 Array 的混合当使用 Item 索引器属性按照元素的键访问元素时其行为类似于 Hashtable 当使用 GetByIndex 或 SetByIndex 按照元素的索引访问元素时其行为类似于 Array SortedList 在内部维护两个数组以将数组存储到列表中即一个数组用于键另一个数组用于相关联的值每个元素都是一个可作为 DictionaryEntry 对象进行访问的键/值对键不能为空引用（Visual Basic 中为 Nothing）但值可以 SortedList 的容量是列表可拥有的元素数随着向 SortedList 中添加元素容量通过重新分配按需自动增加可通过调用 TrimToSize 或通过显式设置 Capacity 属性减少容量 SortedList 的元素将按照特定的 IComparer 实现（在创建 SortedList 时指定）或按照键本身提供的 IComparable 实现并依据键来进行排序不论在哪种情况下 SortedList 都不允许重复键 VB NET结合EXCEL统计生产报表以下是实现代码供参考为方便初学者部份地方加以注释 Private Sub Form _Load(ByVal sender As Object ByVal e As System EventArgs) Handles MyBase LoadDateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #DateTimePicker MaxDate = Date NowDateTimePicker MinDate = # / / #End SubPrivate Sub 灶具分析统计()Call killEXCEL()Dim excelApp As New Excel ApplicationDim 佳尼灶具生产计划 As Excel WorkbookDim 行号 As Integer = Dim 列号 As Integer = Dim 办事处计划数统计 As New SortedListDim 办事处完成数统计 As New SortedListDim 型号计划数统计 As New SortedListDim 型号完成数统计 As New SortedListDim 统计表 As Excel Worksheet Try佳尼灶具生产计划 = excelApp Workbooks Open( E:\my documents\生产计划\佳尼灶具生产计划 xls )统计表 = CType(佳尼灶具生产计划 Worksheets( 统计表 ) Excel Worksheet)统计表 Cells( ) value = DateTimePicker Value ToShortDateString 统计开始日期统计表 Cells( ) value = DateTimePicker Value ToShortDateString 统计结束日期统计表 Range( c :z ) Value = 先清空统计表中原来有关数据统计表 Range( c :z ) Value = Dim 生产计划表 As Excel WorksheetFor Each 生产计划表 In 佳尼灶具生产计划 Worksheets 遍历生产计划表If Strings Left(生产计划表 Name ) = Or Strings Left(生产计划表 Name ) = Then 如果是或开头的表名因生产计划表名是或开头 MsgBox(生产计划表 Name)行号 = 生产计划表中生产数据从第四行开始列号 = 第列是计划下发日期从计划下发日期判断是否是所要数据Dim 临时行号 As Integer = 求得工作表中最后一行所在的行号从第四行开始往下计算While 生产计划表 Cells(临时行号列号) value Nothing MsgBox(生产计划表 Cells(行号列号) value 行号)临时行号 += End While临时行号 = 得到生产计划表中最后数据行所在的行号 MsgBox(临时行号)For 行号 = To 临时行号生产计划标准格式行号从开始到工作表中最后一行If (CDate(DateTimePicker Value ToShortDateString) = CDate(生产计划表.Cells(行号, 列号).value)) And (CDate(DateTimePicker2.Value.ToShortDateString) = CDate(生产计划表 Cells(行号列号) value)) Then 如果日期在规定范围内灶具各城市分布情况Dim 城市 As String = 生产计划表 Cells(行号 ) value 第列是城市名称Dim 计划数 As Decimal = CType(生产计划表 Cells(行号 ) value Decimal) 第列是计划数Dim 完成数 As Decimal = CType(生产计划表 Cells(行号 ) value Decimal) 第列是实际完成数Dim 未完成数 As Decimal = 用Decimal是因为后面要加小数If 完成数计划数 Then '如果没有完成未完成数 = 计划数 - 完成数End IfIf 城市 "" ThenIf InStr(城市, "沈阳") 0 Or InStr(城市, "鞍山") 0 Or InStr(城市, "哈尔滨") 　 0 Or InStr(城市, "葫芦岛") 0 ThenIf 办事处计划数统计.Contains("沈阳") Then办事处计划数统计.Item("沈阳") += 计划数Else办事处计划数统计.Add("沈阳", 计划数)End IfIf 办事处完成数统计.Contains("沈阳") Then办事处完成数统计.Item("沈阳") += 未完成数Else办事处完成数统计.Add("沈阳", 未完成数)End IfElseIf 办事处计划数统计.Contains(城市) Then办事处计划数统计.Item(城市) += 计划数Else办事处计划数统计.Add(城市, 计划数)End IfIf 办事处完成数统计.Contains(城市) Then办事处完成数统计.Item(城市) += 未完成数Else办事处完成数统计.Add(城市, 未完成数)End IfEnd IfElseMsgBox(生产计划表.Name "没有城市名称", MsgBoxStyle.Critical, "生产计划中要有城市名称")excelApp.Visible = True生产计划表.Activate()生产计划表.Select()End If'以下计算灶具型号分布情况Dim 型号 As String = Strings.Left(生产计划表.Cells(行号, 2).value, 3) '灶具型号在第3列If 型号计划数统计.Contains(型号) Then型号计划数统计.Item(型号) += 计划数Else型号计划数统计.Add(型号, 计划数)End IfIf 型号完成数统计.Contains(型号) Then型号完成数统计.Item(型号) += 未完成数Else型号完成数统计.Add(型号, 未完成数)End IfEnd IfNextEnd IfNextDim 城市数 As Integer = 办事处计划数统计.CountDim 城市数clone As Integer = 办事处计划数统计.Count行号 = 4'依计划数大小排序Dim 办事处计划数统计副本 As New SortedListDim asa As Decimal = 0.001 '加上此数是为了防止键值的重复，在工作表中可选不显示小数Dim 办事处计划数Enum As IDictionaryEnumerator = 办事处计划数统计.GetEnumeratorWhile 办事处计划数Enum.MoveNext办事处计划数统计副本.Add(办事处计划数Enum.Value + asa, 办事处计划数Enum.Key)asa += 0.001End While'这里利用SortedList自动排序的功能Dim i As Integer = 1For 列号 = 3 To 3 + 城市数 - 1 '从第三列开始填写数据，这是预先定义的格式统计表.Cells(行号, 列号).value = 办事处计划数统计副本.GetByIndex(城市数clone - i) '城市统计表.Cells(行号 + 1, 列号).value = 办事处计划数统计副本.GetKey(城市数clone - i) '计划数统计表.Cells(行号 + 2, 列号).value = 办事处完成数统计.Item(办事处计划数统计副本　.GetByIndex(城市数clone - i)) '计划数i += 1Next'以型号计划数多少排序Dim 型号计划数统计副本 As New SortedList办事处计划数Enum = 型号计划数统计.GetEnumeratorWhile 办事处计划数Enum.MoveNext型号计划数统计副本.Add(办事处计划数Enum.Value + asa, 办事处计划数Enum.Key)asa += 0.001' MsgBox(办事处计划数Enum.Valu lishixinzhi/Article/program/net/201311/11282

本文题目：vb点虐做数据报表 vb中生成数据表格
本文链接：https://www.cdcxhl.com/article24/ddiepce.html

成都网站建设公司_创新互联，为您提供商城网站、微信公众号、定制网站、网站维护、外贸建站、ChatGPT