MsFlexGrid用法 (轉貼)

option explicit
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim str as string
dim strSQL as string
  str="provider=SQLSERVER.1;SERVER=LOCAL;UID=SA;PWD="";DATABASE=PUBS"
if cn.state=adstateopen then cn.close
   cn.Cursorlocation=adUseClient
   cn.open str
strSQL="select * from JOBS"
with rs
      if .state=adstateopen then .close
      end if  
          .LockType = adLockOptimistic
         .CursorLocation = adUseClient
         .CursorType = adOpenKeyset
         .ActiveConnection = CN
         .Open strSQl
    WITH  MSFlexGrid1
        .Rows=2
        .CellAlignment=4  
         .TextMatrix(1,0)="日期"
          .TextMatrix(1,1)="姓名"
          .TextMatrix(1,2)="項目"
      Do While NOt rs.Eof
           .Rows=.Rows+1
           .CellAlignment=4
           .TextMatrix(.Rows-1,0)=rs.Fields(0)
           .TextMatrix(.Rows-1,1)=rs.Fields(1)
           .TextMatrix(.Rows-1,2)=rs.Fields(2)
           rs.movenext
      loop
   end with
   rs.close
set rs =nothing