我的一个小小需求，大家救命啊。。

Question

With MSChart1
            .TitleText = "资金变化趋势"
            .RowCount = rs.RecordCount
            For i = 1 To rs.RecordCount
                  .Row = i                  .RowLabel = rs.Fields("时间")
                  rs.MoveNext
            Next i
    End With为什么以上代码显示不出来RowLabel？横轴标签是rs.Fields("时间")，y轴的值是rs.Fields("资金")，y轴每个值之间间隔5，y轴的值连横轴的标签形成line型，请问如何写代码？我真的对mschart很晕，没什么参考代码！

Answer 1

rs.RecordCount有值么？
if not rs.eof then      
     rs.movelast
     With MSChart1
            .TitleText = "资金变化趋势"
            .RowCount = rs.RecordCount
            rs.movefirst
            For i = 1 To rs.RecordCount
                  .Row = i                  .RowLabel = rs.Fields("时间")
                  rs.MoveNext
            Next i
    End With
end if

Answer 2

谢谢楼上，但还是没有显示啊请帮我一下，写这个需求的代码，我对vb不太了解~~~横轴标签是rs.Fields("时间")，y轴的值是rs.Fields("资金")，y轴每个值之间间隔5，y轴的值连横轴的标签形成line型，请问如何写代码？

Answer 3

With MSChart1
            .TitleText = "资金变化趋势"
            .RowCount = rs.RecordCount
            For i = 1 To rs.RecordCount
                  .Row = i
line
                  .RowLabel = rs.Fields("时间")
                  rs.MoveNext
            Next i
    End With

Answer 4

With MSChart1
            .TitleText = "资金变化趋势"
            .RowCount = rs.RecordCount
            For i = 1 To rs.RecordCount
                  .Row = i
**********************************************************************
*************请中插入line语句******************8
object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]Line 方法的语法有以下对象限定符和部分：部分 描述 
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。 
Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。 
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 
Step 可选的。关键字，指定相对于线的起点的终点坐标。  
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。 
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 
B 可选的。如果包括，则利用对角坐标画出矩形。 
F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。 
************************************************************************
                  .RowLabel = rs.Fields("时间")
                  rs.MoveNext
            Next i
    End With

Answer 5

http://community.csdn.net/Expert/topic/5484/5484794.xml?temp=.6131861