ここにフォーム ロード サブルーチンがありますが、問題は、プログラムが最初のサブルーチン (つまり、LoadProgrammes()
) を実行し、残りのサブルーチンをスキップすることです。LoadProgrammes()
「Form Load」の残りの部分が呼び出されないようにするサブルーチンについて何かがあります。
についても同様ですListActiveClasses()
。OnlyDisplayGroups()
が適切に呼び出され、次のコード行が呼び出されます。
文字通り理由がわかりません.Googleのソリューションを見つけるのは非常に困難です. 助けてくれる人に前もって感謝します。
Private Sub frmEnroll_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadProgrammes()
ListActiveClasses()
DisplayGroups()
End Sub
Private Sub LoadProgrammes()
Dim strLoadSQL As String
Dim dsLoad As New DataSet
Dim daLoad As OleDb.OleDbDataAdapter
Using con As New OleDbConnection(My.Settings.ConnectionPath)
strLoadSQL = "SELECT Programme FROM Programmes"
daLoad = New OleDb.OleDbDataAdapter(strLoadSQL, con)
daLoad.Fill(dsLoad, "LoadProgrammes")
'Add items to the combobox
For i = 0 To dsLoad.Tables("LoadProgrammes").Rows.Count
cmbProgramme.Items.Add(dsLoad.Tables("LoadProgrammes").Rows(i).Item(0))
Next
End Using
End Sub