说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何知dataset某表的当前记录位置?

编辑:说三道四文库 发布时间:2018-01-22 02:16
HTML文档下载 WORD文档下载 PDF文档下载
我做一个小程序,就是实现简单的增加删除修改等操作,用datagrid绑定,当点击某条记录时,想删除它,如何知当前记录位置?好象用FIND可以,我不想用,想直接删除当前记录,有没有相当于ADO的rs.AbsolutePosition这样的属性?
大佬们,快回答啊
真是失望,这样的小问题没人答
Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
Console.WriteLine(Me.DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub DataGrid1_CursorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CursorChanged
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

这就OK
dllgdx2000(dllgdx2000):有没有相当于ADO的rs.AbsolutePosition这样的属性?
dllgdx2000(dllgdx2000):有没有相当于ADO的rs.AbsolutePosition这样的属性?我的意思如我没用datagrid绑定呢,
lzzgg is datagrid
Sub delsj_click()
        '删除记录
        rybadapter.DeleteCommand = New SqlCommand("delete ryb where xm=@xm")
        rybadapter.DeleteCommand.Parameters.Add("@xm", SqlDbType.VarChar, 25, "员工姓名")
        rybadapter.DeleteCommand.Connection = conn
        If lzzgg.CurrentRowIndex < 0 Then
            MessageBox.Show("您没有选择你要删除的记录", "删除记录", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Else
            If MessageBox.Show("是否真要删除当前记录", "删除记录", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                Try
                    Dim mysql, stext, row, col As String
                    row = lzzgg.CurrentRowIndex
                    stext = lzzgg.Item(row, 1)
                    Dim mycomm As SqlCommand
                    mysql = "delete ryb where dlzh='" & stext & "'"
                    conn.Open()
                    mycomm = New SqlCommand(mysql, conn)
                    Dim i As Int16 = mycomm.ExecuteNonQuery
                    If i > 0 Then
                        MessageBox.Show("该记录已删除", "删除记录", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        mysql = "select ,xm as 员工姓名,dlzh as 登录帐号,dlmm as 登录密码,zwsm as 职位说明,gwbl as 考评比列,zczw as 职称职位 from ryb where bh='" & temp & "'"
                        rybds = New DataSet()
                        rybds.Clear()
                        lzzgg.DataSource = Nothing
                        rybadapter.Fill(rybds)
                        lzzgg.DataSource = rybds.Tables(0)
                    End If
                    conn.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.ToString(), "删除记录", MessageBoxButtons.OK, MessageBoxIcon.Question)
                End Try
            End If
        End If
    End Sub
TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 这种情况下必须装Access2000吗 一般没有人在Access中使用存储过程吧?比如想动网论坛这样的大程序 望眼欲穿寻觅高手---Java实现SFTP时的协议不匹配问题! 能不能实现点击leftframe.htm里的打印按钮,打打印rightframe.htm页面的内容?急 Anycell Report(中国式报表)的最新版本V1.7出来啦,支持交叉表和分组报表,欢迎下载! 请问有没有全文搜索的工具? 望眼欲穿寻觅高手---Java实现SFTP时的协议不匹配问题! u5的s10:为何我的网页显示中文为乱码? 望眼欲穿寻觅高手---Java实现SFTP时的协议不匹配问题! 如图,在Rt△ABC中,CD,CE分别是斜边AB上 图中BC=10cm,EC=8cm,且三角形ABG与 黄色的外语单词是什么 ‘黄颜色’单词的英语怎么拼写黄色 蓝色 白色 如图,长方形的周长是80厘米,它的长与宽各是多少? y=x²分之K 这是反比例函数吗 y=3÷x²是反比例函数么? y=1/x²是反比例函数吗?指出k的值 如图,在三角形ABC中,AB=BC,中线AD把三角 俄媒称中国和印度商定定期举行联合军演意大利父子专制冒牌名酒遭警方查获 将星巴克回应售价质疑 称在中国利润不比“秀中文”成为俄罗斯政要新时尚美国男子跑马拉松织出近4米长围巾 破>相关新闻:专访星河湾集团副总裁:对于未来我比郁养生警惕:天天吃鸡蛋 让你比同龄人早诺贝尔文学奖得主莫言受聘担任台师大教中国海军抵达出访南美第一站 智利瓦尔太平天梦神武九州志丧尸王的征途斩落九天天下一锅烩云州水库旅游大东海海盗吧旅游观澜版画村旅游亚布力好汉岭滑雪场旅游摩尼殿旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘