日期:2012-06-02  浏览次数:20348 次

 

在编程中我们经常遇到这样的问题,我们想要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试试,结果就出来了!