Member 14588284 Ответов: 2

Как я могу отправить данные в другую форму

всем привет
я хочу отправить данные из третьей формы Т второй формы

коды сообщить это

я открываю свой первый с
затем откройте вторую форму
затем третий
первые коды
Private Sub YeniHareket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniHareket.Click 
        Dim f As New F_CariKayıt 
        f.ShowDialog()
    End Sub


коды второй формы
Private Sub CARIARA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARIARA.Click
        Dim FRM As New F_CariList
        FRM.FORMNO.Text = 3
        FRM.ShowDialog()
    End Sub


третий код
Sub detayformagonder() 
            F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value
            F_CariKayıt.UNVAN_CEK() 
        End If
        ' Me.Close()
    End Sub


Что я уже пробовал:

я написал в своем вопросе
<pre>Sub detayformagonder() 
            F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value
            F_CariKayıt.UNVAN_CEK() 
        End If
        ' Me.Close()
    End Sub

2 Ответов

Рейтинг:
2

Davester28

Вы можете сделать общедоступную переменную в любой из ваших форм, и она будет доступна в других.

'Form2 code

Public MyVar as string = ""


'Form1 code

Dim f as new form2
f.MyVar = "Whatever"



На самом деле не совсем ясно, где вы застряли, но надеюсь, что это поможет

Member 14588284 

Sub detayformagonder() 
            F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value
            F_CariKayıt.UNVAN_CEK() 
        End If
        ' Me.Close()
    End Sub


в этом коде я не могу отправить form2
не работать.

F_CariKayıt.CARKOD3.Text - это null

Рейтинг:
0

Member 14588284

я не думаю, что его очень просто, как это

это решило мою проблему

Private Sub CARIARA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARIARA.Click
        Dim FRM As New F_CariList
        FRM.FORMNO.Text = 3
        FRM.ShowDialog()
 CARKOD3.Text = FRM.Rows(FRM.CurrentCell.RowIndex).Cells(0).Value
             UNVAN_CEK() 

    End Sub


только я закрываю форму 3