Как я могу установить значение поля со списком в текущей форме, передав значение из другой формы в vb.net - PullRequest
0 голосов
/ 26 февраля 2020

Как я могу установить значение поля со списком в текущей форме, передав значение из другой формы в vb. net.

У меня есть 2 windows формы, а именно frmUsedSpace.vb и Frm_Loading.vb.

Сначала Frm_Loading.vb загружается и имеет Gridview, содержащий выпадающие списки, которые заполняются при событии загрузки, затем я go в frmUsedSpace.vb, нажимая кнопку на Frm_Loading.vb.

В frmUsedSpace. VB формы У меня есть gridview, который имеет значение .. Я просто хочу, если я дважды щелкну по строке gridview, то автоматически заполняются значения combobox на Frm_Loading.vb.

В настоящее время я пытаюсь, как приведенный ниже код Вот где Я передаю значения через событие CellDoubleClick

Private Sub dgv_SpaceSuggest_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_SpaceSuggest.CellDoubleClick

    ColdCode = CType(dgv_SpaceSuggest.Item(1, e.RowIndex).Value, Integer)
    Chamber_code = CType(dgv_SpaceSuggest.Item(2, e.RowIndex).Value, Integer)
    Floor_Code = CType(dgv_SpaceSuggest.Item(4, e.RowIndex).Value, Integer)
    Block_Code = CType(dgv_SpaceSuggest.Item(6, e.RowIndex).Value, Integer)

    ColdName = CType(dgv_SpaceSuggest.Item(0, e.RowIndex).Value, String)
    Chamber_Name = CType(dgv_SpaceSuggest.Item(3, e.RowIndex).Value, String)
    Floor_Name = CType(dgv_SpaceSuggest.Item(5, e.RowIndex).Value, String)
    Block_Name = CType(dgv_SpaceSuggest.Item(7, e.RowIndex).Value, String)

    Frm_Loading.G_comboStoringblockcode.ValueMember = Chamber_code.ToString()
    Frm_Loading.G_comboStoringblockcode.DisplayMember = Chamber_Name

    Frm_Loading.GcomboStoringFloorCode.ValueMember = Floor_Code.ToString()
    Frm_Loading.GcomboStoringFloorCode.DisplayMember = Floor_Name

    Frm_Loading.GcomboStoringBlockCode.ValueMember = Block_Code.ToString()
    Frm_Loading.GcomboStoringBlockCode.DisplayMember = Block_Name

    Me.Close()
End Sub
...