Question

VB MSChart 能否动态显示柱状图?

就是我加入数据,他能否自动增加柱子?

Answer 1

在画面里 添加一个时钟， 把Timer1的Interval = 1000，然后
写下如下代码

Private Sub Timer1_Timer()
constr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databases\EXAMPLE1.mdb;" '设置数据库连接字符串
Adodc1.ConnectionString = constr
sqlc = "select 日期,增长,数据,x,y from use order by 日期 DESC"
Adodc1.RecordSource = sqlc
Adodc1.Refresh
Dim i

Me.MSChart1.ShowLegend = True '显示 字段内容
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "请在数据库中输入数据!", vbCritical
Exit Sub
End If
With MSChart1
.TitleText = "产线报废产品数量图例"

.RowCount = Adodc1.Recordset.RecordCount
For i = 1 To Adodc1.Recordset.RecordCount
.Row = i
.ColumnCount = 4 '一定要设置，否则会多显示几行未知列

.Column = 1 ' 设置数据网格的第1个活动列
.ColumnLabel = "增长" ' 设置该活动列的标签
.Data = Adodc1.Recordset.Fields("增长") '增长为access 表use的 字段
.Column = 2 ' 设置数据网格的第2个活动列
.ColumnLabel = "数据" ' 设置该活动列的标签
.Data = Adodc1.Recordset.Fields("数据")'数据 为access 表use的 字段，下面的相同
.Column = 3 ' 设置数据网格的第3个活动列
.ColumnLabel = "蓝光" ' 设置该活动列的标签
.Data = Adodc1.Recordset.Fields("x")
.Column = 4 ' 设置数据网格的第4个活动列
.ColumnLabel = "白烟" ' 设置该活动列的标签
.Data = Adodc1.Recordset.Fields("y")
' .IsValueShownAsLabel = True

.RowLabel = Adodc1.Recordset.Fields("日期") '日期也为 use表中的字段

Adodc1.Recordset.MoveNext
Next i
End With
end sub