|
#2
xiangyue05102017-08-17 09:24
你找的示例代码其实就是用一个临时数组替代recordset，每次更新一下
我想到另外一个思路，没有经过测试，你自己尝试一下。  程序代码：Adodc1.Recordset.PageSize=10 Adodc1.RecordSource = "select xxx from xxx where xx='" & xxx.Text & "' and xx='" & xx.Text & "' order by xx desc" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Set MSChart1.DataSource = Adodc1 MSChart1.Refresh |
以下附上我用mschart控件做的的柱状图代码：
Adodc1.RecordSource = "select xxx from xxx where xx='" & xxx.Text & "' and xx='" & xx.Text & "' order by xx desc"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Set MSChart1.DataSource = Adodc1
从网上找到一段程序，但不知道怎针对我的语句去进行修改并如何去调用，求帮助。
程序代码：'向下翻页（仅提供基本思路，程序没调试过）
Function showNextPage()
'每页显示10条
Const pageSize As Integer = 10
Dim temp() As Integer
Dim currentPageIndex As Integer
Dim pageCount As Integer
ReDim temp(pageSize)
'计算总的页数
pageCount = UBound(arr) \ pageSize + 1
'currentPageIndex是从0开始的
If currentPageIndex < pageCount - 1 Then
currentPageIndex = currentPageIndex + 1
Else
currentPageIndex = pageCount - 1
End If
'开始复制数据
Dim i As Integer
For i = 0 To pageSize - 1
temp(i) = arr(currentPageIndex * pageSize + i)
Next
MSChart1.ChartData = temp
End Function
Function showNextPage()
'每页显示10条
Const pageSize As Integer = 10
Dim temp() As Integer
Dim currentPageIndex As Integer
Dim pageCount As Integer
ReDim temp(pageSize)
'计算总的页数
pageCount = UBound(arr) \ pageSize + 1
'currentPageIndex是从0开始的
If currentPageIndex < pageCount - 1 Then
currentPageIndex = currentPageIndex + 1
Else
currentPageIndex = pageCount - 1
End If
'开始复制数据
Dim i As Integer
For i = 0 To pageSize - 1
temp(i) = arr(currentPageIndex * pageSize + i)
Next
MSChart1.ChartData = temp
End Function
[此贴子已经被作者于2017-8-17 08:44编辑过]
