Vb 2010 StackedColoumchart

Dev Shed Forums Sponsor:

February 22nd, 2012, 03:58 AM

doctor1000

Contributing User

Join Date: Aug 2005

Posts: 58

Time spent in forums: 20 h 53 m 13 sec
Reputation Power: 9

Vb 2010 StackedColoumchart

can someone please tell me what i can do to fix this problem with a stackedcolumn chart in VB

i need 3 series stacked to show total items for given delivery dates. series1 is items in production, series2 is items awaiting production and series 3 is items not yet transfered to our production software for production scheduling (series3 is a different database)

series1 and series2 come from one datasource and stack correctly in the chart but series3 comes from a totally different datasource. Series3 data looks like it floating above the series1 and 2 stackedcolumn. It is the correct date colomn and value is correct but there is a gap before showing the series3 block.

i dont know how to attach images on here but if u need to see then please post how i can display a jpg.

Cheers

my code is as follows

Code:

        
Dim mySelectQuery As String = "SOME SQL"
Dim myConnection As New OdbcConnection(Conn1)
Dim myCommand As New OdbcCommand(mySelectQuery, myConnection)

myConnection.Open()

Dim myReader As OdbcDataReader = myCommand.ExecuteReader()
Chart1.Series("Series1").Points.DataBindXY(myReader, "deliverydate1", myReader, "BATCHED")
myReader.Close()

Dim myReader2 As OdbcDataReader = myCommand.ExecuteReader()
Chart1.Series("Series2").Points.DataBindXY(myReader2, "deliverydate2", myReader2, "REMAINING")
myReader2.Close()

myConnection.Close()

Dim mySelectQuery3 As String = "SOME SQL"
Dim myConnection3 As New OdbcConnection(Conn2)
Dim myCommand3 As New OdbcCommand(mySelectQuery3, myConnection3)

        myConnection3.Open()
        Dim myReader3 As OdbcDataReader = myCommand3.ExecuteReader()
        Chart1.Series("Series3").Points.DataBindXY(myReader3, "deliverydate3", myReader3, "TOTAL")
        myReader3.Close()

        myConnection3.Close()

        Chart1.Series("Series1").ChartType = SeriesChartType.StackedColumn
        Chart1.Series("Series2").ChartType = SeriesChartType.StackedColumn
        Chart1.Series("Series3").ChartType = SeriesChartType.StackedColumn

        Chart1.Series("Series1").IsValueShownAsLabel = True
        Chart1.Series("Series2").IsValueShownAsLabel = True
        Chart1.Series("Series3").IsValueShownAsLabel = True

        Chart1.Series("Series1").XValueType = DataVisualization.Charting.ChartValueType.Date
        Chart1.Series("Series2").XValueType = DataVisualization.Charting.ChartValueType.Date
        Chart1.Series("Series3").XValueType = DataVisualization.Charting.ChartValueType.Date

        Chart1.ChartAreas("ChartArea1").Area3DStyle.Enable3D = True

February 22nd, 2012, 05:36 AM