标题:vb.net+access做的一个小小的电话记录程序,删除功能不理想。请帮忙
只看楼主
wuwenquan
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2006-4-21
结帖率:100%
 问题点数:0 回复次数:2 
vb.net+access做的一个小小的电话记录程序,删除功能不理想。请帮忙
做的一个小小的电话记录程序,删除功能不理想。请帮忙解决一下,多谢!

删除的时候获取参数不准,本来是选择哪条就删除哪条,可运行时老是删除最上面一条。

PHONE.rar (1.45 MB)
搜索更多相关主题的帖子: access 理想 小小的 
2008-07-09 16:54
香帅
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2008-7-5
得分:0 
先下下来看看
2008-07-09 22:07
redcar
Rank: 2
等 级:论坛游民
帖 子:210
专家分:60
注 册:2006-9-13
得分:0 
兄弟,既然下了,看了,我就回1下吧.你这种弄法貌似不好.我是这样弄
先,把DGV里面那行去掉,然后再更新数据库

        If DataGridView1.CurrentRow.Index > -1 Then
            DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
        End If
.........
下面再更新数据库
这个是LINQ的,我的项目中的,类似例子,用循环插入
            If DataGridView1.Rows.Count > 0 Then
                'DGV第一行为0,所以 -1 ,如果手动可以DGV输入,最后多1行,就要-2
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    '定义1个变量为表,表也是类. 插入,必须类型相同,强制转换
                    Dim newqc = New Stuff With {.ID = 110, _
                    .单号 = DH, _
                    .领用器材名称 = DataGridView1.Rows(i).Cells("领用器材名称").Value, _
                    .领用器材型号 = DataGridView1.Rows(i).Cells("领用器材型号").Value, _
                    .领用器材数量 = Val(DataGridView1.Rows(i).Cells("领用数量").Value), _
                    .维修器材名称 = DataGridView1.Rows(i).Cells("维修器材名称").Value, _
                    .维修器材型号 = DataGridView1.Rows(i).Cells("维修器材型号").Value, _
                    .维修器材数量 = DataGridView1.Rows(i).Cells("维修数量").Value, _
                    .单价 = Val(DataGridView1.Rows(i).Cells("单价").Value), _
                    .总价 = Val(DataGridView1.Rows(i).Cells("总价").Value)}
                    DB.Stuff.InsertOnSubmit(newqc)
                Next
                DB.SubmitChanges()
2008-07-11 10:31



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




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

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