怎样把多个线条显示在mschart控件内.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 8 行

假设rb_1为数据记录对象,每列都应为数据型字段，则可以通过以下方法来解决： 
    MSChart1.ColumnCount = rb_1.Fields.Count 
    For i = 1 To = rb_1.Fields.Count 
     MSChart1.Column = i 
     MSChart1.Data = rb_1.Fields(i-1) 
     MSChart1.ColumnLabel = rb_1.Fields(i).name & " " & Int(rb_1.Fields(i-1) / number * 100) & "%" 
    Next i 
<END>