none
vb.net webbrowser和combobox问题 RRS feed

  • 问题

  • Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = Form2.Label7.Text End Sub

    为什么不可以显示,我在vb6用可以啊?

    2. Private Sub ComboBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.Click Label1.Text = ComboBox2.SelectedValue("Serial1") End Sub 为什么我按下combo2,然后选着数据。却没有立刻显示数据?需要再按一次才可以显示?我有两个fields在数据库(Application_Name,Serial1),combobox2会显示Application_Name的数据,然后根据Application_Name的数据名字,在Serial1寻找,然后label1显示出Serial1的数据。
    2010年8月9日 14:45

答案

  • 你好

    我嘗試了將Form2.Label1.Text ASSIGN 到 Label1.Text 上, 能夠順利顯示..


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = Form2.Label7.Text
    End Sub


    所以是應該沒有問題的 或者你可以看看, 你的FORM1.LABEL7.TEXT PROPERTY 有沒有 資料/文字?


    2)

    为什么我按下combo2,然后选着数据。却没有立刻显示数据?需要再按一次才可以显示
    這是因為CLICK 事件要在你用MOUSE CLICK 到 這個COMBOBOX 時才出運作的, 所以當你選了 選項後
    再按一次才可以显示

    你可以改變一下你的CODE
    當遇到 用SelectedIndexChanged 事件之後把
    Try
    Label1.Text = ComboBox2.SelectedValue
    Catch ex As Exception
    '用 try and catch 是因為要避免 有錯誤發生
    End Try


    全部用

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
            Try
                Label1.Text = ComboBox2.SelectedValue
            Catch ex As Exception
        '用 try and catch 是因為要避免 有錯誤發生, 因為在第一次绑定数据库 時可能會 TRIGGERED SelectedIndexChanged 事件的...
    這可能會出現錯誤
            End Try

        End Sub


    ?我有两个fields在数据库(Application_Name,Serial1),combobox2会显示Application_Name的数据,然后根据Application_Name的数据名字,在Serial1寻找,然后label1显示出Serial1的数据。

    對不起我理解能力不好
    你的意思是你有 一個数据库, 一個表單, 這個表單有2個 FIELDS嗎?

    如果我估得對的話
    你可以在
    combobox2.datasource 绑定数据库 時
    用以下的CODE, 我COPY 了你在另一個主題的CODE, 改了一部分

        Dim conn As New OleDbConnection _
               ("provider=microsoft.jet.oledb.4.0;data source=db1.mdb")
            Dim tbl As New DataTable()
            Dim myadapter As New OleDbDataAdapter("select * from serial", conn)
            conn.Close()
            myadapter.Fill(tbl)
            ComboBox2.DataSource = tbl
            ComboBox2.DisplayMember = "Application_Name"
        ComboBox2.ValueMember = "FieldName" '你可以在這裡填你第二個FIELD 的名字...' 之後你便可以用SELECTEDVALUE 來找他的数据了
            conn.Close()

    '去實行
     '           Label1.Text = ComboBox2.SelectedValue



    希望可以解決這個問題
    Chi
    2010年8月9日 21:03
    版主