VB.Net la liaison datagridview Comboboxcolumn à datagridviewTextboxColumn

Je suis le chargement de données à partir de deux tables: institut et du pays. L'institut dispose de 3 colonnes: instId, nom, countryId. Et le pays dispose de 2 colonnes: countryId, nom de où countryId est une clé étrangère de la table country. - Je remplir ces deux tables dans le dataset. J'ai datagridview et définir sa source de données de l'institut de table dans mon dataset. J'ai aussi créer datagridviewcomboboxcolumn et le lier pays de table. Regardons le code suivant:

    Public Class frmDGV
Dim sqlConn As SqlConnection
Dim dsOptions As DataSet
Dim daInstitute As SqlDataAdapter
Dim daAdapter As SqlDataAdapter
Dim bsCountry As BindingSource
Private Sub frmTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
dsOptions = New DataSet
loadOptions()
dgvInstitute.DataSource = dsOptions.Tables("institute")
bsCountry = New BindingSource(dsOptions, "country")
Dim col As New DataGridViewComboBoxColumn
col.DataPropertyName = "countryName"
col.HeaderText = "Country"
col.Name = "cName"
col.DataSource = bsCountry
col.DisplayMember = "countryName"
col.ValueMember = "countryId"
dgvInstitute.Columns.Add(col)
dgvInstitute.Columns(0).Width = 60
dgvInstitute.Columns(1).Width = 200
dgvInstitute.Columns(2).Width = 60
dgvInstitute.Columns(3).Width = 120
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
Sub loadOptions()
Dim sql As String
Try
sqlConn = New SqlConnection(connString)
sqlConn.Open()
sql = "select instId, name, countryId from institute"
daInstitute = New SqlDataAdapter(sql, sqlConn)
daInstitute.Fill(dsOptions, "institute")
'----------------------------------------------------------------------
sql = "select countryId, countryName from country"
daAdapter = New SqlDataAdapter(sql, sqlConn)
daAdapter.Fill(dsOptions, "country")
'----------------------------------------------------------------------
sqlConn.Close()
Catch ex As Exception
sqlConn.Close()
MsgBox(Err.Description)
End Try
End Sub
End Class

Comment puis-je afficher le bon nom de pays dans la zone de liste déroulante basée sur la countryId dans le datagridview en utilisant les techniques de liaison pas de l'aide d'une boucle?
Voir l'image suivante:VB.Net la liaison datagridview Comboboxcolumn à datagridviewTextboxColumn

OriginalL'auteur Hilal Al-Rajhi | 2014-01-13

  1. 4

    Changement DataPropertyName pour comboboxcolumn dans votre datagridview:

    ...
col.DataPropertyName = "countryId"
...

    .DataPropertyName - est un nom de colonne de datagridview.DataSource,dont vous voulez afficher dans la colonne actuelle.

    M. Fabio, veuillez s'il vous plaît envoyer le code complet basé sur le mon code? Merci
    Mon avis, que votre code doit travailler, ne changer une ligne dans ma réponse...
    Je vous remercie, Monsieur Fabio, Vous avez raison. J'ai juste modifié le code et le coller la ligne: col.DataPropertyName = "countryId"
    Un grand merci pour vous tous les frères, Hilal Al-Rajhi qui a posé cette question dans un langage clair et excellent moyen de, et de "Fabio" qui obtiennent une nouvelle très utile de répondre, Vraiment des millions de merci pour vous bros, j'ai vraiment eu ce que je cherchais et j'ai été pense qu'il n'est pas possible, mais grâce à vous tous, encore une fois thankX ^_^

    OriginalL'auteur Fabio

  2. 0

    Pour être honnête, je ne sais pas si vous pouvez en raison de la façon dont vous avez lié.

    Le pays de la colonne doivent être dans une zone de liste déroulante? Vous pouvez simplement inclure le nom du pays dans votre première requête.

    La seule façon que je pouvais vraiment voir de la faire, ce serait quelque chose comme

    for(int i = 0; i<dgvInstitute.Rows.Count; i++)
{
dgvInstitute.Rows[rowIndexYouWant].Cells["cName"].Value = dgvInstitute.Rows[rowIndexYouWant].Cells["countryId"].Value;
}
    Oui, le Pays doit être une zone de liste modifiable pour but de permettre à l'utilisateur de changer le pays où l'institut est situé. Je pouvais utiliser la zone de texte et de lier les deux tables dans une requête sql, mais je veux apprendre de nouvelles technique. Mais vous suggestion fonctionne bien, mais pas tout à fait à mon besoin.

    OriginalL'auteur JohnyHarkness

  3. -1
    Imports System.Data.SqlClient
Imports System.Data
Public Class DataGridViewBind
Private Sub DataGridViewBind_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Preparing The Column
Dim col0 As New DataGridViewTextBoxColumn
col0.HeaderText = "InstID"
col0.Name = "InstID"
col0.Width = 100
col0.MaxInputLength = 100
dgv1.Columns.Add(col0)
Dim col1 As New DataGridViewTextBoxColumn
col1.HeaderText = "Name"
col1.Name = "Name"
col1.Width = 100
col1.MaxInputLength = 100
dgv1.Columns.Add(col1)
Dim col2 As New DataGridViewTextBoxColumn
col2.HeaderText = "CountryID"
col2.Name = "CountryID"
col2.Width = 100
col2.MaxInputLength = 100
dgv1.Columns.Add(col2)
Dim Col3 As New DataGridViewComboBoxColumn
Col3.HeaderText = "CountryName"
Col3.Name = "CountryName"
Col3.Width = 100
ProcessCountryComboBox(Col3) 'Bind Country Name to the ComboBox
dgv1.Columns.Add(Col3)
'Prepare the DataGridView
ListDataGridView(dgv1)
End Sub
Public Sub ProcessCountryComboBox(ByVal colX As DataGridViewComboBoxColumn)
Dim StrConn As String = My.Settings.ImportLinkCS
Dim CN = New SqlConnection(StrConn)
LoadGridComboByQuery(colX, "Select Name from Country order by Name")
End Sub
Public Sub LoadGridComboByQuery(ByVal cbo As DataGridViewComboBoxColumn, ByVal SQLString As String)
Dim i As Integer
Dim cmdUser As New SqlCommand
Dim daUser As New SqlDataAdapter
Dim dsUser As New DataSet
Dim dtUser As New DataTable
Dim conn As New SqlConnection(My.Settings.ImportLinkCS)
Try
cbo.Items.Clear()
cmdUser = conn.CreateCommand
cmdUser.CommandText = SQLString
daUser.SelectCommand = cmdUser
daUser.Fill(dsUser, "Sqltable")
dtUser = dsUser.Tables("Sqltable")
For i = 0 To dtUser.Rows.Count - 1
cbo.Items.Add(dtUser.Rows(i).Item(0))
Next
cbo.Items.Add("")
Catch ex As Exception
MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Error conection!!")
End Try
conn.Close()
conn = Nothing
End Sub
Private Sub ListDataGridView(ByVal dgv As DataGridView)
dgv.DataSource = Nothing
Try
Dim dbBindSource As New BindingSource
Dim strCon As String = My.Settings.ImportLinkCS
Dim strSQL As String = "Select I.InstID, I.Name, I.Country, C.Name as CountryName " + _
"from Institute I left Join Country C on C.CountryID = I.Country"
Dim dataAdapter As SqlDataAdapter = New SqlDataAdapter(strSQL, strCon)
Dim commandBuilder As SqlCommandBuilder = New SqlCommandBuilder(dataAdapter)
'Populate a new data table and bind it to the BindingSource.
Dim table As DataTable = New DataTable()
table.Locale = System.Globalization.CultureInfo.InvariantCulture
dataAdapter.Fill(table)
dgv.AutoGenerateColumns = False
dgv.Columns(0).DataPropertyName = "InstID"
dgv.Columns(1).DataPropertyName = "Name"
dgv.Columns(2).DataPropertyName = "Country"
dgv.Columns(3).DataPropertyName = "CountryName"
dbBindSource.DataSource = table
//Resize the DataGridView columns to fit the newly loaded content.
//dgv.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader)
dgv.DataSource = dbBindSource
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "error")
End Try
End Sub
End Class

    OriginalL'auteur Yat Fei Leong