1014第六堂課


作者: | 2008/10/15 12:00:00 | 1 則迴響


很快的到了第六堂課,這次延續了上次未完的作業評量,幾乎每個人都有做到作業,這也是我希望的。但缺點是花了太多時間,所以決定今後不搞這種課堂作業了,拖到太多進度XD。

每個人現在都有基本的觀念及操作經驗,今後我們就勇往直前吧,開放練習時間也必須固定了,有不懂的希望回家要練習,多問問一些已經會的同學。

班上每個人的名字跟臉,已經差不多可以連在一起了,這表示今後我可以開始累積一些印象分數了。如果上課遇到「不懂、有問題」那都是正常的,因為大家是學生,就是來學的; 但如果不想去解決,那態度上就真的有問題了。

其實現在教的已經可以做專題了,快點想想題目吧,也可以來跟我討論。


標籤:

分類:

本文作者是Audi Lu

1 則留言

  • Anonymous says:

    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 如何處理網站訪客的留言資料