紧急!!!

Question

在一个表单，有textbox控件和datagrid控件，当textbox中加入内容后，
如何把TEXTBOX中的内容自动加入datagrid中的某个单元格中.

Answer 1

Private Sub Command1_Click()
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2  '为Recordset三个字段,即为 DataGrid 添加三列
   adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 3
   adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
DataGrid1.Row = 1
DataGrid1.Col = 2
DataGrid1.Text = Text1.Text
End SubPrivate Sub Form_Load()
Text1.Text = "123456789"
End Sub

Answer 2

Private Sub Form_Load()
Text1.Text = "123456789"
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim i As Integer
For i = 0 To 2  '为Recordset三个字段,即为 DataGrid 添加三列
   adoRecordset.Fields.Append "第" & i & "列", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 3
   adoRecordset.AddNew '加四条记录,即为 DataGrid 添加四空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
End SubPrivate Sub Text1_Change()
DataGrid1.Row = 1
DataGrid1.Col = 2
DataGrid1.Text = Text1.Text
End Sub