大虾们,谁用过mschart啊我的这个控件现在不显示数据啊‘但是在MSHFlexGrid1这个控件里就能显示Private Sub Check1_Click()If cn.State <> 1 Then
cn.Open
Else
cn.Close
End If
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\NPSDatanew.mdb"If Check1.Value = 1 Then
sql2 = "select " & Check1.Caption & " from 农村生活数据 where 乡镇名称 ='" & Combo1.Text & "'"
rs2.Open sql2, cn, adOpenKeyset, adLockOptimistic
End IfSet MSChart1.DataSource = rs2
Set MSHFlexGrid1.DataSource = rs2End Sub
cn.Open
Else
cn.Close
End If
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\NPSDatanew.mdb"If Check1.Value = 1 Then
sql2 = "select " & Check1.Caption & " from 农村生活数据 where 乡镇名称 ='" & Combo1.Text & "'"
rs2.Open sql2, cn, adOpenKeyset, adLockOptimistic
End IfSet MSChart1.DataSource = rs2
Set MSHFlexGrid1.DataSource = rs2End Sub
rs2.Open sql2, cn, adOpenKeyset, adLockOptimistic
Set MSChart1.DataSource = rs2check1.caption字段必须是数值,如果是数字字符串,出库时要用cast转换。