如何把检索到的内容加到DATAGRID的相应位置上

Question

如题,谢谢

Answer 1

比如:在EXCEL里检索的到的数据如下:
SHEETS("1").CELLS(I,1)  SHEETS("1").CELLS(I,8) SHEETS("1").CELLS(I,7) 
就是把以上的数据放如DATAGRID的相应单元格内

Answer 2

还是看不明白,不过下面的代码估计能帮上你:Private Sub Form_Load()
Dim adoRecordset As New ADODB.Recordset
Dim i As Integer
For i = 0 To 5  '为Recordset六个字段,即为 DataGrid 添加六列
   adoRecordset.Fields.Append "n * " & i + 1, adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For j = 0 To 4
   adoRecordset.AddNew '加五条记录,即为 DataGrid 添加五空行
Next j
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
For i = 0 To 5
For j = 0 To 4
DataGrid1.Row = j
DataGrid1.Col = i
DataGrid1.Text = (i + 1) * (j + 1)
Next
Next

Answer 3

代码用了,编译的时候出错的!
我所做的,都是在宏里.
不涉及到VB的相应东西!要求完成的任务如下:
有一张表格,里面有大量数据!
在表格里检索到相应的数据后,
放到DATAGRID对应的项里.
比如:找到EXCEL里的CELLS(1,1)是需要的数据,
要把该数据写在DATAGRID的第一行,第一列对应的位置,怎么能写进去

Answer 4

DataGrid1.Col = 0
    DataGrid1.Row = 0
    DataGrid1.Text = SHEETS("1").CELLS(1,1)