日期:2008-11-10 浏览次数:20407 次
在编程中我们经常遇到这样的问题,我们想要Datagrid的readonly属性为False,直接在Datagrid中修改数据。但又不想让它出现新增的行,这个问题很多网友发贴问过,事实上实现起来非常简单,只是大家没想到而已。下面通过一个简单示例说明之
首先在界面中添加一个Datagrid和一个Button按钮,Name为默认值,双击Button1编写以下代码。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dtNew.Columns.Add("时间", GetType(String))
dtNew.Columns.Add("成本", GetType(String))
Dim intCircle As Integer
For intCircle = 0 To 3
Dim dtrow As DataRow
dtrow = dtNew.NewRow
dtrow(0) = 2000 + intCircle
dtrow(1) = 3500 + 20 * intCircle
dtNew.Rows.Add(dtrow)
Next
Dim dtView As New DataView
dtView = dtNew.DefaultView
dtView.AllowNew = False '消除新增行
dtView.AllowDelete = False '不让用户通过键盘上的Delete键删除行
Me.DataGrid1.DataSource = dtView
End Sub
按F5试试,结果就出来了!