dotNETportal.cz

Zdravim, mam takovy zacatecnicky problem potrebuji poradit dve veci

1, napojuji vice comboxu na tabulku v databazi timto kodem

                With .cbACountry
                    .DataSource = m_SumTable.Tables(m_sTABLE_COUNTRY) 'data ztabulky
                    .DisplayMember = "Country"
                    .ValueMember = "Country_Code"
                    .SelectedIndex = -1
                End With

                With .cbClientCountry
                    .DataSource = m_SumTable.Tables(m_sTABLE_COUNTRY) 'data ztabulky
                    .DisplayMember = "Country"
                    .ValueMember = "Country_Code" 
                    .SelectedIndex = -1
                End With

m_s_TABLE_COUNTRY - obsahuje dva sloupce Country, Country_Code

v teto tabulce je vypsano cca 150 statu z celeho sveta

napojeni funguje, muzu si vybrat stat ze kteroho klient pochazi, problem je v tom ze v druhem Combu si muzu vybrat jiny stat (typicky klient je Francouz ale podnika v CR) a ty dve pole jsou jakoby svazane, kdyz vyberu v jednom nejaky stat tak v druhem je automaticky vybran taky. Jak se to dela aby to tak nebylo? Dve tabulky?

A druha ma otazka se vaze k tem samym combum. Jakou musim nastavit vlastnost, aby mi fungovalo klasicke chovani comba pri vyhledavani v jeho polozkach -

¨vepisu treba pismeno "C" (chci zapsat stat Czech Republic a ocekavam ze budu automaticky presunt na prvni stat, ktery zacina na C) a automaticky mi najedou vsechny staty od "C", lepe receno preskocim vsechny predchozi pismena.

Diky Premek

Na tohle nepotřebujete 2 tabulky, měly by stačit 2 různé datové zdroje.ComboBox má vlastnost DropDownStyle, jejímž nastavením byste měl docílit toho, aby se pomocí písme dalo vyhledávat a aby uživatel nemohl přidávat vlastní hodnoty.

Diky za odpoved

muzu se zeptat jak mam udelat ty dva zdroje?

Urcite to bude neco jednoducheho, ale kdyz ja s tim VB.NET tak bojuji ....

DropDownStyle - bohuzel mi to nepomohlo u Vas to funguje?

Ja to nakonec delal takhle

  Dim m_sComboText As String = sender.text
        Dim m_iIndex As Integer

        Select Case e.KeyCode
            ' pro tyto klavesy nedelat nic
            Case Keys.Left, Keys.Right, Keys.Up, Keys.Down, Keys.Delete, Keys.Back
                Return
        End Select

        'vyhledavani polozky
        m_iIndex = sender.FindString(m_sComboText)
        If m_iIndex <> ListBox.NoMatches Then
            ' vybereme polozku ze seznamu
            sender.SelectedIndex = m_iIndex
            ' oznacim dohlednou cast textu
            sender.Select(m_sComboText.Length, sender.Text.Length)
        End If