VB 版 (精华区)

发信人: student (earth), 信区: VB
标  题: 怎样把多个线条显示在mschart控件内
发信站: 哈工大紫丁香 (2001年06月15日18:38:32 星期五), 站内信件

在使用mschart控件的二维line方法把多个线条（与一个数据库的多列数据表相连）显示
在mschart控件内假设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

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.186]