これが私のプログラムの流れです..
Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click
..
....
Call comboRefresh() ------>
cmdNext.Text = "Add New"
cmdEdit.Text = "Edit"
cmdUpdate.Enabled = False
End Sub
Private Sub comboRefresh()
------> ....
da.Fill(ds, "Vendor_Machine")
cmbSn_no.ValueMember = "sr_no"
cmbSn_no.DataSource = ds.Tables(0) --
cmbSn_no.SelectedIndex = 0
....
End Sub
Private Sub cmbSn_no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSn_no.SelectedIndexChanged
-----> cnnOLEDB.Open()
...
Dim dr As OleDb.OleDbDataReader = comm_SelVen.ExecuteReader
If dr.Read = True Then
cmbSn_no.Text = dr("sr_no")
cmbChal_no.Text = dr("chaln_no") ----->
End If
cnnOLEDB.Close()
End Sub
Private Sub cmbChal_no_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbChal_no.SelectedIndexChanged
----> cnnOLEDB.Open()
...
cnnOLEDB.Close()
End Sub
ここで、「接続が既に開いています...」という問題が表示され、実行が停止します...---> cnnOLEDB.Open()
最後のサブ関数の行cmbChal_no_SelectedIndexChanged
にコメントを付けることはできません.単独で呼び出す必要があるため..コメントするとエラーが発生します
接続が閉じられています。DataReader を実行するには開く必要があります
何をすべきか提案してください...ありがとう