Как получить значения из базы данных сервера Sql в DataGridViewComboBoxColumn в vb.net - PullRequest
Новая
       18

Как получить значения из базы данных сервера Sql в DataGridViewComboBoxColumn в vb.net

0 голосов
/ 17 января 2019

Мне нужны значения данных из одной таблицы в datagridviewcomboboxcolumn и другого значения 2-й таблицы в столбце datagridviewtextbox при выборе datagridviewcomboboxcell

Мой код указан ниже: 

 Private Sub Populate()
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable

    con.Open()
    Dim Cmd1 As New SqlCommand("select * from Itemmaster where flag='G'", con)
    dt1.Load(Cmd1.ExecuteReader)
    Cmd1.CommandText = "Select * from Itemdetail"
    dt2.Load(Cmd1.ExecuteReader)


    DataGridView1.AutoGenerateColumns = False
    DataGridView1.DataSource = dt1

    Dim colpgCombo As New DataGridViewComboBoxColumn()
    colpgCombo.DataSource = dt1
    colpgCombo.DisplayMember = "Name"
    colpgCombo.ValueMember = "code"
    colpgCombo.DataPropertyName = "Name"
    colpgCombo.HeaderText = "Product Group"
    DataGridView1.Columns.Add(colpgCombo)

    Dim colpru As New DataGridViewTextBoxColumn()
    colpru.DataPropertyName = "Unit"
    colpru.HeaderText = "Unit"
    DataGridView1.Columns.Add(colpru)

    Dim colHsn As New DataGridViewTextBoxColumn()


    colHsn.DataPropertyName = "Hsncode"
    colHsn.HeaderText = "Hsncode"
    DataGridView1.Columns.Add(colHsn)

    Dim colRate As New DataGridViewTextBoxColumn()
    colRate.DataPropertyName = "Rate"
    colRate.HeaderText = "Rate"
    DataGridView1.Columns.Add(colRate)

End Sub

Private Sub ButtonNewItem_Click(sender As Object, e As EventArgs) Handles ButtonNewItem.Click
    Populate()
End Sub

1 Ответ

0 голосов
/ 17 января 2019 
Private Sub Populate()
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable

    con.Open()
    Dim Cmd1 As New SqlCommand("select * from Itemmaster where flag='G'", con)
    dt1.Load(Cmd1.ExecuteReader)
    Cmd1.CommandText = "Select * from Itemdetail"
    dt2.Load(Cmd1.ExecuteReader)


    DataGridView1.AutoGenerateColumns = False
    DataGridView1.DataSource = dt1

    Dim colpgCombo As New DataGridViewComboBoxColumn()
    colpgCombo.DataSource = dt1
    colpgCombo.DisplayMember = "Name"
    colpgCombo.ValueMember = "code"
    colpgCombo.DataPropertyName = "Name"
    colpgCombo.HeaderText = "Product Group"
    DataGridView1.Columns.Add(colpgCombo)

    Dim colpru As New DataGridViewTextBoxColumn()
    colpru.DataPropertyName = "Unit"
    colpru.HeaderText = "Unit"
    DataGridView1.Columns.Add(colpru)

    Dim colHsn As New DataGridViewTextBoxColumn()


    colHsn.DataPropertyName = "Hsncode"
    colHsn.HeaderText = "Hsncode"
    DataGridView1.Columns.Add(colHsn)

    Dim colRate As New DataGridViewTextBoxColumn()
    colRate.DataPropertyName = "Rate"
    colRate.HeaderText = "Rate"
    DataGridView1.Columns.Add(colRate)


End Sub
Private Sub ButtonNewItem_Click(sender As Object, e As EventArgs) Handles ButtonNewItem.Click
    Populate()
End Sub
...