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 & "行"
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 & "行"
本文介绍了一个使用Visual Basic编写的示例程序,该程序演示了如何通过DataGridView控件的MouseUp事件来获取所选行的数据,并将其填充到多个TextBox及RichTextBox控件中。这种方法适用于需要快速展示所选记录详细信息的应用场景。
299

被折叠的 条评论
为什么被折叠?



