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

[liulang0808]

如题,谢谢

[daisy8675]

问题是你的题目我不能理解，请重新解释一下

[liulang0808]

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

[northwolves]

还是看不明白,不过下面的代码估计能帮上你:

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

[liulang0808]

代码用了,编译的时候出错的!
我所做的,都是在宏里.
不涉及到VB的相应东西!

要求完成的任务如下:
有一张表格,里面有大量数据!
在表格里检索到相应的数据后,
放到DATAGRID对应的项里.
比如:找到EXCEL里的CELLS(1,1)是需要的数据,
要把该数据写在DATAGRID的第一行,第一列对应的位置,怎么能写进去

[Arqui]

学习一下

[faysky2]

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