如何在Mschart控件上显示相应的数值？

Question

我用
mschart控件做了一个棒状图，我相在相应的棒状图上显示相应的数值，应如何做
谢谢指教

Answer 1

mschart没有用过，但是你的问题用teechart pro v5 很容易解决！
哈哈http://www.0zones.com 软件名称： TeeChart Pro V5.0 ActiVeX 
软件语言： 英文  
 
界面预览： 暂无 
软件类型： 精品控件 / 图表控件 
运行环境： XP, 2000, NT, Win9x 
授权方式： 共享软件 
软件大小： 8.43 MB 
软件等级：  
联 系 人： [email protected] 
开 发 商： 点击访问开发商官方网站 
整理时间： 2004-4-4 10:01:00 
下载次数： 本日：1 本月：32 总计：42 
软件简介： Deliver high performance charting solutions. teeChart Pro allows
you to create general purpose and specialized chart and graphing
applications for all areas including business, engineering,
financial, statistical, scientific, medical, real-time, and the
web. Features a chart gallery with several chart types including
2D or 3D line, bar, horizontal bar, area, point, pie, arrow,
bubble, Gantt, surface, volume, polar, and many more. Use the
Chart Editor to customize your charts.License Number: 6919081 
ActiveX Password: 869253614259258注:SN最好手工输入,不要使用复制粘贴(Don't Copy and Past)！ 

Answer 2

Dim DataGrid As DataGrid
        Set DataGrid = chtTable.DataGrid
                
        chtTable.chartType = VtChChartType2dLine
        Dim introwCount As Integer
        Dim inttmp As Integer
        introwCount = 30
        With chtTable.DataGrid
            .SetSize 1, 1, introwCount, 1
            For inttmp = 1 To introwCount
                If Not rstChart.BOF And Not rstChart.EOF Then
                .RowLabel(inttmp, 1) = rstChart.Fields("日期")'修改X坐标的单位
                .SetData inttmp, 1, rstChart.Fields("金额"), 0
                rstChart.MoveNext
                Else
                .RowLabel(inttmp, 1) = inttmp
                .SetData inttmp, 1, 0, 0
                End If
            Next
        End With