很快的到了第六堂課，這次延續了上次未完的作業評量，幾乎每個人都有做到作業，這也是我希望的。但缺點是花了太多時間，所以決定今後不搞這種課堂作業了，拖到太多進度XD。
每個人現在都有基本的觀念及操作經驗，今後我們就勇往直前吧，開放練習時間也必須固定了，有不懂的希望回家要練習，多問問一些已經會的同學。
班上每個人的名字跟臉，已經差不多可以連在一起了，這表示今後我可以開始累積一些印象分數了。如果上課遇到「不懂、有問題」那都是正常的，因為大家是學生，就是來學的; 但如果不想去解決，那態度上就真的有問題了。
其實現在教的已經可以做專題了，快點想想題目吧，也可以來跟我討論。
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim strSQL As String = "Select * from Customers where Country = ' " & ComboBox1.Text & "'"
Dim conn As SqlConnection = New SqlConnection(strConn)
Dim cmd As SqlCommand = New SqlCommand(strSQL, conn)
Dim dr As SqlDataReader
Dim x As Integer
Dim item As ListViewItem
Dim isOdd As Boolean = True cmd.CommandType = CommandType.Text
conn.Open() dr = cmd.ExecuteReader()
ListView1.Items.Clear() While dr.Read x = ComboBox1.Items.IndexOf(dr.Item("Country"))
item = ListView1.Items.Add(dr.Item("CustomerID"), x) If isOdd Then
item.BackColor = Color.LightBlue
isOdd = False
Else
isOdd = True
End If item.SubItems.Add(dr.Item("CompanyName"))
item.SubItems.Add(dr.Item("ContactName"))
item.SubItems.Add(dr.Item("City")) If IsDBNull(dr.Item("Region")) Then
item.SubItems.Add("–")
Else
item.SubItems.Add(dr.Item("Region"))
End If item.SubItems.Add(dr.Item("Country"))
item.SubItems.Add(dr.Item("Phone"))
End While dr.Close()
cmd.Dispose()
conn.Close()
conn.Dispose()
End Sub
這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料。
發佈留言