参与就有分!!!!太急了!

Question

1.用Ddodc和DataGrid怎样配合实现分页？
2.这两个控件必须一起使用吗？
3.在不同的form中，是否要重复定义Adodc和Datagrid
*********** **********
   还是急，我要急饿了!!!

Answer 1

1.用Adodc中Recordset的PageSize可以将结果集进行分页
2.不一定
3.不用重复定义

Answer 2

能用Ddodc和DataGrid举个实现分页的例子吗？
举个就结分，我要源代码!
简单点就行了!

Answer 3

可以用FlexGird.FlexGird的设置。Row=2,Fix Row=1,Col=1,Fix Col=0.'-----------------------Dim myPageSize, i, j, cur_Page As LongPrivate Sub Command1_Click()
On Error Resume NextAdodc1.Recordset.AbsolutePage = Adodc1.Recordset.AbsolutePage - 1
cur_Page = Adodc1.Recordset.AbsolutePageMSFlexGrid1.Clear
MSFlexGrid1.Rows = myPageSize + 1
MSFlexGrid1.Cols = Adodc1.Recordset.Fields.Count
For i = 0 To Adodc1.Recordset.Fields.Count - 1
    MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
NextFor j = 1 To myPageSize
    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
        Adodc1.Recordset.MoveNext
    Next
Next
Adodc1.Recordset.AbsolutePage = cur_PageEnd SubPrivate Sub Command2_Click()
On Error Resume NextAdodc1.Recordset.AbsolutePage = Adodc1.Recordset.AbsolutePage + 1
cur_Page = Adodc1.Recordset.AbsolutePageMSFlexGrid1.Clear
MSFlexGrid1.Rows = myPageSize + 1
MSFlexGrid1.Cols = Adodc1.Recordset.Fields.CountFor i = 0 To Adodc1.Recordset.Fields.Count - 1
    MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
NextFor j = 1 To myPageSize
    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
        Adodc1.Recordset.MoveNext
    Next
NextAdodc1.Recordset.AbsolutePage = cur_Page
End SubPrivate Sub Form_Load()
On Error Resume Next
myPageSize = 4cur_Page = 1Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Adodc1.Recordset.PageSize = myPageSizeMSFlexGrid1.Rows = myPageSize + 1
MSFlexGrid1.Cols = Adodc1.Recordset.Fields.CountFor i = 0 To Adodc1.Recordset.Fields.Count - 1
    MSFlexGrid1.TextMatrix(0, i) = Adodc1.Recordset.Fields(i).Name
NextFor j = 1 To myPageSize
    For i = 0 To Adodc1.Recordset.Fields.Count - 1
        MSFlexGrid1.TextMatrix(j, i) = Adodc1.Recordset.Fields(i).Value
        Adodc1.Recordset.MoveNext
    Next
NextAdodc1.Recordset.AbsolutePage = cur_PageEnd Sub

Answer 4

类似于SSTab得分页、还是另外的？

Answer 5

其实你们的方法不算好，我用移动recordset.move完成了。