7,762
社区成员
发帖
与我相关
我的任务
分享请教DATAGRID控件的使用?急用!
怎样来控制DATAGRID的行数和列数?对单元格进行文本的处理并实习添加一行或者是删除一行?请大家教教我,快急死了.最好有代码谢谢!
...全文
请发表友善的回复…
发表回复
linfuyong 2003-03-12
- 打赏
- 举报
DataGrid1有AllowDelete和AllowAddNew属性，设为true可以在控件上删除行和新增行
kofer999 2003-03-12
- 打赏
- 举报
DataGrid1有AllowDelete和AllowAddNew属性，设为true可以在控件上删除行和新增行
northwolves 2003-03-12
- 打赏
- 举报
Dim adoRecordset As New ADODB.Recordset
Private Sub Command1_Click() ' delete current line
adoRecordset.Delete adAffectCurrent
End Sub
Private Sub Command2_Click() 'add new line
adoRecordset.AddNew
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
adoRecordset.AddNew '为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub
Private Sub Command1_Click() ' delete current line
adoRecordset.Delete adAffectCurrent
End Sub
Private Sub Command2_Click() 'add new line
adoRecordset.AddNew
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2 '为 DataGrid 添加三列
adoRecordset.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For i = 0 To 9
adoRecordset.AddNew '为 DataGrid 添加十空行
Next i
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub
岁月无声-我心飞翔 2003-03-12
- 打赏
- 举报
行数和列数:
maxrows,maxcols
对单元格进行文本的处理:
不能DATAGRID是只读的，但可以用文本框模拟
添加一行或者是删除一行：
更改maxrows即可
maxrows,maxcols
对单元格进行文本的处理:
不能DATAGRID是只读的，但可以用文本框模拟
添加一行或者是删除一行：
更改maxrows即可
