datagrid 单击显示所在行数据事件

最新推荐文章于 2022-05-09 11:23:35 发布

guopeng_028

最新推荐文章于 2022-05-09 11:23:35 发布

阅读量818

点赞数

分类专栏： VB.NET 文章标签： datagrid integer object string

本文链接：https://blog.csdn.net/guopeng_028/article/details/570160

版权

VB.NET 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

    Private Sub DG2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DG1.MouseUp
        Dim i As Integer
        Dim k As String
        i = DG2.CurrentRowIndex
        Me.id.Text = DG2.Item(i, 0)
        Me.TBmingcheng.Text = DG2.Item(i, 1)
        Me.TBfaren.Text = DG2.Item(i, 2)
        Me.TBdianhua.Text = DG2.Item(i, 3)
        Me.TBchuanzhen.Text = DG2.Item(i, 4)
        Me.TByoubian.Text = DG2.Item(i, 5)
        Me.TBdizhi.Text = DG2.Item(i, 6)
        Me.TBmail.Text = DG2.Item(i, 7)
        Me.TBzhuye.Text = DG2.Item(i, 8)
        If DG2.Item(i, 9).ToString() = "" And DG2.Item(i, 9).ToString() = Nothing Then
            k = "/"
            Me.RTBbeizhu.Text = k
        Else
            Me.RTBbeizhu.Text = DG2.Item(i, 9)
        End If
        DreamsSBar1.Panels(3).Text() = "第" & i + 1 & "行"