＋设为首页 ＋添加到收藏夹
我在.net中使用下面的语句
m_Chart.SetData(m_Constants.chDimSeriesNames, 0, "testSum")
时出错，说找不到对象的属性和方法，但是在asp中是可以运行的，不知道是怎么回事，请指点
.net原码
Private Function genGraphics() As String
Dim m_ChartSpace
Dim m_Chart
Dim m_Constants
Dim m_Series
Dim m_Axis
==========================db=====================================
Dim conn
Dim rs
Dim mySQL As String
Dim temp
conn = Server.CreateObject("ADODB.Connection")
rs = Server.CreateObject("ADODB.RECORDSET")
conn.Open("DSN=ERP;UID=sa;PWD=")
mySQL = "select testID,sum(testVal) as testSum from ERP_Test group by testID"
rs.CursorType = 3
rs.CursorLocation = 3
rs.open(mySQL, conn)
=================================================================
m_ChartSpace = Server.CreateObject("OWC.CHART")
m_Chart = m_ChartSpace.Charts.Add()
m_Constants = m_ChartSpace.Constants
m_ChartSpace.Border.Color = "red"
m_Chart.type = 1
Response.Write(CStr(m_Chart.type))
m_ChartSpace.DataSource = rs
m_Chart.SetData(m_Constants.chDimSeriesNames, 0, "testSum")
For Each m_Series In m_Chart.SeriesCollection
m_Series.SetData(m_Constants.chDimCategories, 0, "testID")
m_Series.SetData(m_Constants.chDimValues, 0, "TestSum")
Next
asp原码：
Private Function genGraphics()
Dim m_ChartSpace
Dim m_Chart
Dim m_Constants
Dim m_Series
Dim m_Axis
==========================db=====================================
Dim conn
Dim rs
Dim mySQL
Dim temp
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RECORDSET")
conn.Open "DSN=ERP;UID=sa;PWD="
mySQL = "select testID,sum(testVal) as testSum from ERP_Test group by testID"
rs.CursorType = 3
rs.CursorLocation = 3
rs.open mySQL, conn
=================================================================
set m_ChartSpace = Server.CreateObject("OWC.CHART")
set m_Chart = m_ChartSpace.Charts.Add()
set m_Constants = m_ChartSpace.Constants
m_ChartSpace.Border.Color = "red"
m_Chart.type = 18
Response.Write(CStr(m_Chart.type))
set m_ChartSpace.DataSource = rs
m_Chart.SetData m_Constants.chDimSeriesNames, 0, "testSum"
For Each m_Series In m_Chart.SeriesCollection
m_Series.SetData m_Constants.chDimCategories, 0, "testID"
m_Series.SetData m_Constants.chDimValues, 0, "TestSum"
Next
up
希望对你有帮助
Public Class WebForm1
Inherits System.Web.UI.Page
Protected WithEvents imgChart As System.Web.UI.WebControls.Image
#Region " Web 窗体设计器生成的代码 "
该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
CODEGEN: 此方法调用是 Web 窗体设计器所必需的
不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
在此处放置初始化页的用户代码
Dim owcChartSpace As OWC.ChartSpace = New OWC.ChartSpace()
Dim owcChart As OWC.WCChart = owcChartSpace.Charts.Add
Dim ConnADO As New ADODB.Connection()
Dim RecordsetADO As New ADODB.Recordset()
Dim myConnection As New Sqlconnection("server=yang;database=dcss;Trusted_Connection=yes")
Dim connectionString As String
connectionString = "server=yang;uid=sa;pwd=;database=ourfly"
connectionString = "provider=SQLOLEDB; Data Source=yang; Initial Catalog=ourfly; User Id=sa; Password="
connectionString = "driver={sql server};server=yang;uid=sa;pwd=; database=ourfly"
ConnADO.Open(connectionString)
RecordsetADO.ActiveConnection = ConnADO
RecordsetADO.CursorType = ADODB.CursorTypeEnum.adOpenStatic
RecordsetADO.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Dim strSQL As String
strSQL = "select * from yearly_production"
RecordsetADO.Open(strSQL, ConnADO)
owcChartSpace.DataSource = RecordsetADO
owcChart.Type = OWC.ChartChartTypeEnum.chChartTypeSmoothLine
owcChart.SetData(OWC.ChartDimensionsEnum.chDimSeriesNames, 0, "factory_name")
Dim owcSeries As OWC.WCSeries
For Each owcSeries In owcChart.SeriesCollection
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimCategories, 0, "production_year")
owcSeries.SetData(OWC.ChartDimensionsEnum.chDimValues, 0, "production_in_tons")
Next
Randomize()
Dim nfilenameSuffix As Integer
Dim sfilenamesuffix As String
nfilenameSuffix = 100000 * Rnd()
sfilenamesuffix = System.Convert.ToString(nfilenameSuffix)
owcChartSpace.ExportPicture(MapPath("owc/price_") + sfilenamesuffix + ".gif", "gif", 800, 600)
imgChart.ImageUrl = "owc/price_" + sfilenamesuffix + ".gif"
End Sub
End Class
