1,451
社区成员
发帖
与我相关
我的任务
分享紧急!!!
在一个表单，有textbox控件和datagrid控件，当textbox中加入内容后，
如何把TEXTBOX中的内容自动加入datagrid中的某个单元格中.
如何把TEXTBOX中的内容自动加入datagrid中的某个单元格中.
...全文
请发表友善的回复…
发表回复
northwolves 2003-10-22
- 打赏
- 举报
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 Sub
Private Sub Text1_Change()
DataGrid1.Row = 1
DataGrid1.Col = 2
DataGrid1.Text = Text1.Text
End Sub
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 Sub
Private Sub Text1_Change()
DataGrid1.Row = 1
DataGrid1.Col = 2
DataGrid1.Text = Text1.Text
End Sub
northwolves 2003-10-22
- 打赏
- 举报
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 Sub
Private Sub Form_Load()
Text1.Text = "123456789"
End Sub
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 Sub
Private Sub Form_Load()
Text1.Text = "123456789"
End Sub
