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

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

编辑:说三道四文库 发布时间:2018-05-25 11:37
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
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘