vb.net 关于chart控件的问题。

u013034598 2013-12-17 04:32:31

<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="Crm_Gooling.DataAccess" %>
<%@ Import Namespace="Crm_Gooling" %>
<%@ Import Namespace="system.Data" %>
<script runat="server">

Dim mSQL As New mExeSQL
Protected mdt As DataTable
'Dim dr As DataRow
Dim ds As DataSet
Dim X,Y As String
Dim errmsg, rq, cd, xingm As String
Dim mid As String = ""
Dim qstr As String = ""
Dim Rmd As SqlClient.SqlDataReader
Dim i As Integer =0
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Try
' qstr = "select * from crm_zdytable_241652_17295_241652 where 1=1"
' mdt = mSQL.mGetDataTable(errmsg, qstr)
' 'ds = mSQL.mGetDataSet(errmsg, qstr)
' cd = mdt.Rows.Count
' mSQL.mIsCheckSafe = False
' 'Response.Write(mdt)
' Response.Write(errmsg)
' 'Chart1.DataSource = mdt
' For i As Integer = 0 To cd - 1
' 'Response.Write(mString.mTrim(mString.mDate(mdt.Rows(i)("create_time"))) + ",")
' rq = mString.mTrim(mString.mDate(mdt.Rows(i)("create_time")))
' xingm = mString.mTrim(mdt.Rows(i)("crm_name"))
' 'Response.Write(rq + ","+xingm)
' Next
' Chart1.Series(0).YValueMembers = "Y"
' Chart1.Series(0).XValueMember = "X"
' 'Chart1.DataBind()

' 'Protected Sub Chart1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
' ' qstr = "select * from crm_zdytable_241652_17295_241652 where 1=1"
' ' 'mdt = mSQL.mGetDataTable(errmsg, qstr)
' ' mSQL.mSqlini(True)
' ' mSQL.mIsCheckSafe = False
' ' ds = mSQL.mGetDataSet(errmsg, qstr)
' Dim dt As New DataTable
' ReportViewer1 = dt
' dt.Columns.Add(New DataColumn("X"))
' dt.Columns.Add(New DataColumn("Y"))
' Dim dr As DataRow = dt.NewRow
' dr.Item("X") = rq
' dr.Item("Y") = xingm
' dt.Rows.Add(dr)
' 'Response.Write(dt.Rows(0).Item("X"))

' ' 'Chart1.DataSource = kk + "," + shu
' ' 'Chart1.Series.XValueMember = "Volume1"
' ' 'Chart1.Series[1].YValueMembers = "Volume2";

' 'End Sub

'Catch ex As Exception
'End Try
'End Sub

'Protected Sub Chart1_Load(ByVal sender As Object, ByVal e As System.EventArgs)
' Try
qstr = "select * from crm_zdytable_241652_17295_241652 where 1=1"
mdt = mSQL.mGetDataTable(errmsg, qstr)
cd = mdt.Rows.Count
'mSQL.mIsCheckSafe = False
Response.Write(errmsg)
Response.Write(mdt)
For i As Integer = 0 To cd - 1
rq = mString.mTrim(mString.mDate(mdt.Rows(i)("create_time")))
xingm = mString.mTrim(mdt.Rows(i)("crm_name"))

Next

'Chart1.DataBind()

'Dim dt As New DataTable
' dt.Columns.Add(New DataColumn("a"))
' dt.Columns.Add(New DataColumn("s"))

'Dim dr as DataRow = dt.NewRow
''Chart1.DataSource = dt
''Chart1.Series(0).YValueMembers = "Y"
''Chart1.Series(0).XValueMember = "X"
''Chart1.DataBind()
' dr.Item("a") = 1
' dr.Item("s") = 2
' dt.Rows.Add(dr)

Catch ex As Exception

End Try
End Sub
</script>

<body style="background:#FCF8E6;">
<form id="form1" runat="server">
<%-- <asp:Chart ID="Chart1" runat="server" onload="Chart1_Load">
<Series>
<asp:Series Name="Series1">
</asp:Series>
</Series>
<ChartAreas>
<asp:ChartArea Name="ChartArea1">
</asp:ChartArea>
</ChartAreas>
</asp:Chart>--%>
</form>
</body>

-----------以上是代码，我要连接的是我们公司的数据库。可是总报错，不知道哪里出了问题，这些大部分都是百度出来的，求大神纠正。（我要实现的功能就是显示出这个报表来，链接的是我们内部的服务器）

...全文

529 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

wind_cloud2011 2013-12-24

打赏
举报

连接数据库例子：数据写到表里

 string strSql = "SELECT Top 5 empid, COUNT(*) AS lNum FROM log where empid <> '' GROUP BY empid ORDER BY empid";
  DataSet ds = SqlHelper.ExecuteDataset(strConnISPD, CommandType.Text, strSql);     
  DataView dv = new DataView(ds.Tables[0]);
  Chart1.Series["login"].Points.DataBindXY(dv, "empid", dv, "lNum");
 SqlCommand cd = new SqlCommand(strSql, conn);
 SqlDataAdapter da = new SqlDataAdapter();       
 da.SelectCommand = cd;
 DataSet ds = new DataSet();
 da.Fill(ds, "log");
 DataView dv = new DataView(ds.Tables[0]);
 dv.Sort="empid";
 Chart1.Series["login"].Points.DataBindXY(dv, "empid", dv, "lNum");

u013034598 2013-12-23

打赏
举报

引用 5 楼 wind_cloud2011 的回复:

mSQL.mGetDataTable，是不是这类中没有连接数据库？

这个里边连到数据库了，前边的sql就是查找的数据库，关键是我不会用这个chart 控件，不知道怎么和我查找的内容连接起来

wind_cloud2011 2013-12-23

打赏
举报

mSQL.mGetDataTable，是不是这类中没有连接数据库？

u013034598 2013-12-18

打赏
举报

引用 2 楼 kongwei521 的回复:

擦一个注释也没有。错误信息呢？你设置个断点一步一步跟踪看看哪个地方出错。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) End Sub Protected Sub Chart1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Try qstr = "select * from crm_zdytable_241652_17295_241652 where 1=1" mdt = mSQL.mGetDataTable(errmsg, qstr) cd = mdt.Rows.Count Response.Write(errmsg) Response.Write(mdt) For i As Integer = 0 To cd - 1 rq = mString.mTrim(mString.mDate(mdt.Rows(i)("create_time"))) '创建时间 xingm = mString.mTrim(mdt.Rows(i)("crm_name")) '客户姓名（我想要把这两个字段的数据加到报表里去，可总是不行） Next Dim dt As New DataTable '新建一个表，再试试能不能把这个表里的数据放进去，还是失败了 dt.Columns.Add(New DataColumn("a")) dt.Columns.Add(New DataColumn("s")) '新建a，s字段 Dim dr As DataRow = dt.NewRow 'Chart1.DataSource = dt 'Chart1.Series(0).YValueMembers = "a" 'Chart1.Series(0).XValueMember = "s" ’字段的值付给xy轴 'Chart1.DataBind() dr.Item("a") = 1 dr.Item("s") = 2 '给字段添加值 dt.Rows.Add(dr) Catch ex As Exception End Try End Sub </script> <body style="background:#FCF8E6;"> <form id="form1" runat="server"> <asp:Chart ID="Chart1" runat="server" onload="Chart1_Load" DataSourceID="SqlDataSource1"> <Series> <asp:Series Name="Series1" XValueMember= "a" YValueMembers="s"> </asp:Series> </Series> <ChartAreas> <asp:ChartArea Name="ChartArea1"> </asp:ChartArea> </ChartAreas> </asp:Chart> <asp:SqlDataSource ID="SqlDataSource1" runat="server"></asp:SqlDataSource><%--(这是插入的chart 控件)--%> </form> </body> 设置断电的话，到select语句就不行了，因为我链接的不是本地数据库、、

蝶恋花雨 2013-12-17

打赏
举报

我们可以将图表与数据绑定来实现大部分你所需的功能（请参考这个教程：http://msdn.microsoft.com/zh-cn/library/dd489231）。其他的一些自定义操作可以通过修改chart控件的属性，参考此图标元素：http://msdn.microsoft.com/zh-cn/library/dd489238。

蝶恋花雨 2013-12-17