标题:vb 2005的怪现象
只看楼主
tbfy
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-12-5
 问题点数:0 回复次数:3 
vb 2005的怪现象
Private Sub 删除行按钮_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除行按钮.Click
        If DataGridView1.Rows.Count = 1 Then
            DataGridView1.CurrentCell = DataGridView1(0, cellrow)
        Else
            Me.报单dataset.Tables("差旅单").Rows(DataGridView1.CurrentRow.Index).Delete() '删除datagirdview中指定的行
            Dim srow As Integer
            Dim i As Integer
            srow = DataGridView1.Rows.Count - 1
            For i = 0 To srow - 1
                DataGridView1(0, i).Value = i + 1
                报单BindingSource.EndEdit()
            Next i
        End If
        CurrentcellDirty = True
        GetSumData()
    End Su

执行以上代码时,必需删除一行之后要更新一次数据库,否则就不能删除下一行.

另外执行以下代码
 Private Sub 插入新行按钮_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 插入新行按钮.Click
        Dim newrow As DataRow
        newrow = Me.报单dataset.Tables("差旅单").NewRow
        'DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.CurrentRow.Index)
        Me.报单dataset.Tables("差旅单").Rows.InsertAt(newrow, DataGridView1.CurrentRow.Index)
        Dim srow As Integer
        Dim i As Integer
        srow = DataGridView1.Rows.Count - 1
        For i = 0 To srow - 1
            DataGridView1(0, i).Value = i + 1
            DataGridView1.CurrentCell = DataGridView1(0, i)
            报单BindingSource.EndEdit()
        Next i
        CurrentcellDirty = True
        GetSumData()
    End Sub
插入一行后不要更新到数据库,更新时不提示任何错误.
请大家帮看看,急啊

在这里谢谢各位啦!
搜索更多相关主题的帖子: 现象 Integer Count srow ByVal 
2007-12-06 22:00
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
问题一: 不更新数据库也可以.只需要改变"报单dataset"里面的值就行了.只是删除一行时需要再绑定一次.    (要保存到数据库时需要单独再写个事件)
问题二: 同问题一一样.改变"报单dataset"

飘过~~
2007-12-07 10:27
tbfy
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-12-5
得分:0 
版主能否给出具体的代码,小弟不太明白,谢谢啦!
2007-12-08 10:38
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
dataset.Tables("差旅单").Rows.Delete();    '删除后,再绑定一次.
如果需要更新到数据中,可以用[url]http://www.[/url]里面的方法

飘过~~
2007-12-08 14:27



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-190847-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.112640 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved