网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb点虐 地图报表 vbnet绘图

如何用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.NET中向报表传递参数时出错

VB.NET中向报表传递参数时出错

光看这一句的话,没发现问题,问题可能是出现在前面。

显示水晶报表的基本框架是这样的,如下:

'参数字段集合

Dim ParamFields As New ParameterFields

'参数字段

Dim ParamField As ParameterField

'离散值

Dim DiscreteVal As New ParameterDiscreteValue

''创建一个强类型报表实例

crReportDocument = New CrystalReport1

''将Dataset传递给报表

crReportDocument.SetDataSource(dataSet)

''将报表传递给浏览器

CrystalReportViewer1.ReportSource = crReportDocument

这个应该是你需要的,希望能帮到你,另外,如果你是刚刚接触水晶报表的话,关于水晶报表的问题你可以去 阿泰 CSND的BLOG 找找,不知道你有没有听说过,呵呵反正是很强大啦~

鍙傝 冭祫鏂欙细

伭悱吝栉媉升姁唪栿牿珛燀最娘檵

vb点虐 如何嵌入地图

新建一个文件,写入下面的代码:

!doctype html

html

head

meta name="viewport" content="initial-scale=1.0, user-scalable=no" /

meta http-equiv="Content-Type" content="text/html; charset=gbk" /

titleBaidu Map V1.2/title

script type="text/javascript" src=";services=true"

!-- add baidu map api --

/script

/head

body

div id="container" style="width: 600px; height: 400px;"

/div

/body

/html

script type="text/javascript"

var map = new BMap.Map("container");                 // new Map

var point = new BMap.Point(116.397128, 39.916527);      // Location, (经度, 纬度)

map.centerAndZoom(point, 15);                        // show Map

// 添加缩放功能

map.enableScrollWheelZoom();

map.enableKeyboard();

/script

保存到程序exe同一目录下,文件名:map.html

然后BUTTON点击事件:

WebBrowser1.Navigate(Application.StartupPath  "\map.html")

这样就可以了

ps:经纬度可以到百度地图官网去获取

或者到:  去生成代码


网页名称:vb点虐 地图报表 vbnet绘图
转载源于:http://bjjierui.cn/article/ddgcsog.html

其他资讯