1

これも可能なものです。私はコードを下に貼り付けて、誰かが私にそれを行う正しい方法を教えてくれることを望んでいます。

 For Each tbbox As TableLayoutPanel In GroupBox3.Controls
'looping through all controls in my tablelayoutpanle
            For Each ctl As Control In tbbox.Controls
                If ctl.Name.StartsWith("cb_barva") Then
'im stuck here...
                    With (ctl)
                        .DataSource = ds_barve.Tables("moje_barve")
                        .DisplayMember = "barva"
                        .ValueMember = "barva"
                        .SelectedIndex = 0
                    End With

                End If
            Next
        Next
4

1 に答える 1

1

型変換が必要です

With (ctl)

ctl を ComboBox に変換します

ctype(ctl,ComboBox)

「With」ステートメントでコントロールを変換できない場合は、以下のようにコードの各行を変更してください....

        ctype(ctl,ComboBox).DataSource = ds_barve.Tables("moje_barve")
        ctype(ctl,ComboBox).DisplayMember = "barva"
        ctype(ctl,ComboBox).ValueMember = "barva"
        ctype(ctl,ComboBox).SelectedIndex = 0
于 2013-01-30T09:19:38.747 に答える