2 allbluekos allbluekos 于 2015.06.04 22:01 提问

Form1中双击文本框弹出Form2的datagridview双击选择获得CELL值后Form2退出

目标是:Form1的文本框Textbox1 获得 Form2的datagridview1 的选取CELL值。
过程: 1.双击Form1中的Textbox1弹出Form2

2.在Form2中的datagridview1中双击选取值后关闭Form2
思路:
A. 文本框双击:Private Sub TB2sl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TB2sl.DoubleClick
Dim client As New Client
client.Show()
TB2sl.Text = client.DataGridView1.CurrentRow.Cells(1).Value.ToString
End Sub
B。怎么获得datagridview1 关闭后选取的变量。??
请高手指点。。谢谢

5个回答

caozhy
caozhy   Ds   Rxr 2015.06.04 22:49
已采纳

http://bbs.csdn.net/topics/360140208
直接看我的代码,有问题问。

bdmh
bdmh   Ds   Rxr 2015.06.04 22:06

可以将form1实例传入form2 ,并发布一个接口或属性,双击grid时,调用这个接口赋值

allbluekos
allbluekos   2015.06.04 22:29

@bdmh,我觉得你说的不对,我是从Form2取值,怎么是把Form1的实例传入Form2呢???请用代码诠释可以吗???

allbluekos
allbluekos   2015.06.05 09:00

谢谢大家,CAOZHY的例子很详细,也非常棒。只是我只对VB.NET有些了解。如果今天还没有VB的解决方法,我就结贴采纳CAOZHY。

allbluekos
allbluekos   2015.06.05 10:32

自己解决了,方法如下,分享给大家。
Form 1 里面代码:
Private Sub TB2sl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TB2sl.DoubleClick
Dim client As New Client
If (client.ShowDialog() = Windows.Forms.DialogResult.OK) Then
TB2sl.Text = client.R1
End If
End Sub

Form2 代码:
Public R1 As String
Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
R1 = DataGridView1.CurrentRow.Cells(1).Value.ToString
'R1 = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString()
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub

Csdn user default icon
上传中...
上传图片
插入图片