2017-09-19 8 views
0

フレームに3つのラジオボタンがあります。データベースに番号がある場合は、番号に応じてラジオボタンを選択します。申し訳ありませんが、これは重複した質問ですが、検索を試みました。Visual Basicアプリケーションのデータベースからのラジオボタンの選択

これは、ランダムに動作しているようです:

mABC = cboABC.SelectedValue 
Select Case mABC 
    Case 0 
     optABC_ccc.Checked = True 
    Case 1 
     optABC_bbb.Checked = True 
    Case 2 
     optABC_aaa.Checked = True 
+0

cboABCは何物でしょうか? –

+0

私はそれにしたい番号を記入しました。それを行う方法についての少しラウンドが、アプリはデータベースからのコントロールを埋めるためにブックマークとしてプレフィックスマイナスの名前を使用します。 – mabees

+0

質問は何ですか?間違ったことはないようです。 – AustinS90

答えて

0

この単純な例では、あなたが欲しいものを行います。あなたがどこに間違っていたのか分かりません。それを試して、あなたのコードが欠けているものを見てください。

私はあなたと同じコントロールを持っていますし、あなたのコードを呼び出すボタンもあります。

' class to be used as data source 
Private Class Foo 
    Public Property A As Integer 
End Class 

' set up data source, and set ValueMember (otherwise SelectedValue won't work) 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim ds = New List(Of Foo)() 
    ds.Add(New Foo() With {.A = 0}) 
    ds.Add(New Foo() With {.A = 1}) 
    ds.Add(New Foo() With {.A = 2}) 
    cboABC.DataSource = ds 
    cboABC.ValueMember = "A" 
End Sub 

' used a button to initiate your code 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    ' SelectedValue is the value of property A of the data source 
    ' this code is identical to yours 
    Dim mABC = cboABC.SelectedValue 
    Select Case mABC 
     Case 0 
      optABC_ccc.Checked = True 
     Case 1 
      optABC_bbb.Checked = True 
     Case 2 
      optABC_aaa.Checked = True 
    End Select 
End Sub 

enter image description here

0
 mABC = ds.Tables("Alphabet").Rows(0)("ABC") 
     'mABC = cboABC.SelectedValue 
     Select Case mABC 
      Case 0 
       optABC_ccc.Checked = True 
      Case 1 
       optABC_bbb.Checked = True 
      Case 2 
       optABC_aaa.Checked = True 

     End Select 
関連する問題