关于MSFLEXGRID

Question

请问如何将RECORDSET的记录全部写到MSFLEXFRID里
将recordset的内容一条条的完全显示出来就可以了
另外，怎么样可以把recordset的内容一行行的读入文本文件
一条记录占一行

Answer 1

SQL="select * from table"Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimisticwith msflexgrid1
do while not rst.EOF     .rows=.rows+1
    .textmatrix(.rows-1,0)=rst.fields(0)
    .textmatrix(.rows-1,1)=rst.fields(1)
' .........(有几个字段就显示写几个)    rst.movenext
loop
end with

Answer 2

为什么不用MSHFlexGrid呢？
Dim adors As New ADODB.Recordset
set Me.MSHFlexGrid1.DataSource = adors

Answer 3

.Rows = 2
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 1) = mrc.Fields!mer_sale
            .TextMatrix(.Rows - 1, 2) = mrc.Fields!mc
            .TextMatrix(.Rows - 1, 3) = mrc.Fields!sumcount
             csum = csum + mrc.Fields!sumcount
            .TextMatrix(.Rows - 1, 4) = mrc.Fields!sumprice
             psum = psum + mrc.Fields!sumprice
            .TextMatrix(.Rows - 1, 5) = mrc.Fields!sumFee_back
             fbsum = fbsum + mrc.Fields!sumFee_back
            .TextMatrix(.Rows - 1, 7) = mrc.Fields!sumFee
             fsum = fsum + mrc.Fields!sumFee
            .TextMatrix(.Rows - 1, 6) = mrc.Fields!sumFee - mrc.Fields!sumFee_back
             fksum = fksum + mrc.Fields!sumFee - mrc.Fields!sumFee_back
            mrc.MoveNext
        Loop

Answer 4

set Me.MSHFlexGrid1.DataSource = adors

Answer 5

這是我常用的方法，希望能幫你解決問題。Public conn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Public g_sql As Stringif rs1.state=1 then rs1.close
g_sql="select * from table_name"
rs1.open g_sql,conn,3,1
with msflexgrid
    for i=1 to rs1.recordcount        
        .textmatrix(i,0)=iif(isnull(rs1("字段1")),"",rs1("字段1")
        .textmatrix(i,1)=iif(isnull(rs1("字段2")),"",rs1("字段2")
                .
                .
                .
        .textmatrix(i,n)=iif(isnull(rs1("字段n+1")),"",rs1("字段n+1")
        rs1.movenext
        .rows=.rows+1        
    next i
end with