在线高分相求OWC下两条柱状跟三条折线相结合的图例生成？

Question

现要求一图，二个柱状加三条曲折，现代码如下：
 objCSpace.Charts(0).SeriesCollection.Add()
            With objCSpace.Charts(0).SeriesCollection(0)
                .Caption = HeadDsc(0)
                .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
                .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values1)
                .Type = ChartChartTypeEnum.chChartTypeColumnClustered
                .Interior.Color = "DarkRed"
            End With            objCSpace.Charts(0).SeriesCollection.Add()
            With objCSpace.Charts(0).SeriesCollection(1)
                .Caption = HeadDsc(1)
                .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
                .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values2)
                .Type = ChartChartTypeEnum.chChartTypeColumnClustered
                .Interior.Color = "CornflowerBlue"
            End With            objCSpace.Charts(0).SeriesCollection.Add()
            With objCSpace.Charts(0).SeriesCollection(2)
                .Caption = HeadDsc(2)
                .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
                .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values3)
                .Type = ChartChartTypeEnum.chChartTypeLineMarkers
                .Interior.Color = "Red"
            End With            objCSpace.Charts(0).SeriesCollection.Add()
            With objCSpace.Charts(0).SeriesCollection(3)
                .Caption = HeadDsc(3)
                .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
                .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values4)
                .Type = ChartChartTypeEnum.chChartTypeLineMarkers
                .Interior.Color = "Yellow"
            End With            objCSpace.Charts(0).SeriesCollection.Add()
            With objCSpace.Charts(0).SeriesCollection(4)
                .Caption = HeadDsc(4)
                .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
                .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values5)
                .Type = ChartChartTypeEnum.chChartTypeLineMarkers
                .Interior.Color = "Green"
            End With我只生成了两条柱形跟最后一条折线，另外两条折线怎么也不出来？

Answer 1

幫妳頂,我也給owc煩着呢.
========================和你们一样烦我想在柱图的顶上加上数字(就是每个柱的值)楼上的2 位可以帮我吗?

Answer 2

Dim categories As String = "1" + ControlChars.Tab + "2" + ControlChars.Tab _
      + "3" + ControlChars.Tab + "4" + ControlChars.Tab + "5" + ControlChars.Tab _
      + "6" + ControlChars.Tab
        Dim Values1 As String = (212).ToString + ControlChars.Tab + 10.ToString + ControlChars.Tab _
                      + "500" + ControlChars.Tab + "70" + ControlChars.Tab + "120" + ControlChars.Tab _
                      + "800 + ControlChars.Tab"
        Dim Values2 As String = (220).ToString + ControlChars.Tab + (60 + 600).ToString + ControlChars.Tab _
                    + "500" + ControlChars.Tab + "70" + ControlChars.Tab + "120" + ControlChars.Tab _
                    + "800 + ControlChars.Tab"
        Dim Values3 As String = (220).ToString + ControlChars.Tab + (60 + 30).ToString + ControlChars.Tab _
                    + "500" + ControlChars.Tab + "70" + ControlChars.Tab + "120" + ControlChars.Tab _
          + "800 + ControlChars.Tab"
        Dim Values4 As String = (122).ToString + ControlChars.Tab + (60 + 160).ToString + ControlChars.Tab _
                    + "500" + ControlChars.Tab + "70" + ControlChars.Tab + "120" + ControlChars.Tab _
                    + "800 + ControlChars.Tab"
        Dim Values5 As String = (221).ToString + ControlChars.Tab + (60 + 260).ToString + ControlChars.Tab _
                    + "500" + ControlChars.Tab + "70" + ControlChars.Tab + "120" + ControlChars.Tab _
                    + "800 + ControlChars.Tab"
        Me.AxSpace.Charts.Add(0)
        Dim objSeries0 As Owc11.ChSeries = AxSpace.Charts(0).SeriesCollection.Add(0)
        With objSeries0 ' AxSpace.Charts(0).SeriesCollection(0)
            .Ungroup(True)
            .Caption = 0 ' HeadDsc(0)
            .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
            .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values1)
            .Type = ChartChartTypeEnum.chChartTypeColumnClustered
            .Interior.Color = "DarkRed"
        End With        Dim objSeries1 As Owc11.ChSeries = AxSpace.Charts(0).SeriesCollection.Add(1)
        With objSeries1 'AxSpace.Charts(0).SeriesCollection(1)
            .Caption = 1 ' HeadDsc(1)
            .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
            .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values2)
            .Type = ChartChartTypeEnum.chChartTypeColumnClustered
            .Interior.Color = "CornflowerBlue"
        End With        Dim objSeries2 As Owc11.ChSeries = AxSpace.Charts(0).SeriesCollection.Add(2)
        With objSeries2 'AxSpace.Charts(0).SeriesCollection(2)
            .Caption = 2 ' HeadDsc(2)
            .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
            .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values3)
            .Type = ChartChartTypeEnum.chChartTypeLineMarkers
            .Interior.Color = "Red"
        End With        Dim objSeries3 As Owc11.ChSeries = AxSpace.Charts(0).SeriesCollection.Add(3)
        With objSeries3 'AxSpace.Charts(0).SeriesCollection(3)
            .Caption = "3" 'HeadDsc(3)
            .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
            .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values4)
            .Type = ChartChartTypeEnum.chChartTypeLineMarkers
            .Interior.Color = "Yellow"
        End With        Dim objSeries4 As Owc11.ChSeries = AxSpace.Charts(0).SeriesCollection.Add(4)
        With objSeries4 'AxSpace.Charts(0).SeriesCollection(4)
            .Caption = "4" ' HeadDsc(4)
            .SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, categories)
            .SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, Values5)
            .Type = ChartChartTypeEnum.chChartTypeLineMarkers
            .Interior.Color = "Green"
        End With

Answer 3

楼主看我的bloghttp://blog.csdn.net/xiaok/