Private Sub Command1_Click()
         
          Dim i   As Integer
          Dim aa()     As String
          Dim adoRecordset   As ADODB.Recordset
          Set adoRecordset = New ADODB.Recordset
                     
           x = 2:   y = 8
          ReDim aa(x - 1, y - 1) As String
          For i = 0 To x - 1
                  For j = 0 To y - 1
                          aa(i, j) = i * 10 * j '数组赋值
                  Next j
          Next i
                    
          For i = 0 To x - 1                 '为Recordset2个字段,即为   DataGrid   添加2列
          adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
          Next i
         
          adoRecordset.Open
         
          For i = 0 To y - 1
                  adoRecordset.AddNew  ' 加8条记录,即为   DataGrid   添加8空行
          Next i
         
          adoRecordset.MoveFirst
         
          For j = 0 To y - 1
                  
                  For i = 0 To adoRecordset.Fields.Count - 1
                           adoRecordset.Fields(i).Value = aa(i, j) '数据输入记录集
                  Next i
           
                  adoRecordset.MoveNext
                 
          Next j
Set DataGrid1.DataSource = adoRecordset

End Sub

原帖由 [bold][underline]purana[/underline][/bold] 于 2007-12-9 15:15 发表 [url=http://bbs.][/url]
如果用数组在Grid里显示的话.
使用MsFlexGrid更适合.

Dim Arr(5)     As String
  Dim i     As Integer
  Dim str     As String
  Arr(0) = "Jack"
  Arr(1) = "Male"
  Arr(2) = "Bei   Jin"
  Arr(3) = "Software   Eneger"
  Arr(4) = "33"
  Arr(5) = "Bad   Man"
   
          MSFlexGrid1.Cols = 6
            
          For i = 0 To UBound(Arr)
                  str = str & Arr(i) & vbTab
      
          Next
  MSFlexGrid1.AddItem str