none
转送值的问题 RRS feed

  • 问题

  • Public Class payroll

     

        Dim serverdbuserpass As String

        Dim cmd As New Odbc.OdbcCommand

        Dim adapter As New Odbc.OdbcDataAdapter(cmd)

     

     

        Private Sub payroll_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

            setting.getsetup()  '获取setting的getsetup值

        End Sub

     

    Private Sub ComboBox1_Click(ByVal sender As ObjectByVal e As System.EventArgsHandles ComboBox1.Click

            Dim MyConnection As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=" & setting.server & ";Database=" &setting.db & "; User=" & setting.user & ";Password=" & setting.pass & ";Port=3306;Option=3;")

            MsgBox(MyConnection.ConnectionString) ‘第一次可以获取值

            cmd.CommandText = "select * from login"

            cmd.Connection = MyConnection

     

            MyConnection.Open()

            Dim tbl As New DataTable

            Dim payroll As New DataSet

            adapter.Fill(payroll)

            tbl = payroll.Tables(0)

     

            ComboBox1.Items.Clear()

            For Each drow As DataRow In tbl.Rows

                ComboBox1.Items.Add(drow(2).ToString)

            Next

            MyConnection.Close()

     

        End Sub

     

        Private Sub payroll_VisibleChanged(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.VisibleChanged

            setting.getsetup()

            setting.getconnection()

            Dim MyConnection As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=" & setting.server & ";Database=" &setting.db & "; User=" & setting.user & ";Password=" & setting.pass & ";Port=3306;Option=3;")

            MsgBox(MyConnection.ConnectionString)

        End Sub

    End Class

     

    以上的代码如果在payroll form执行是没有问题,但当跳转至其他的form(payroll form就会隐藏)当从其他的form跳转回payroll form时(payroll form 会显示)当点击combobox1时,就无法获取值,我有试过在payroll_VisibleChanged获取值,是可以获取。但就是无法传到combobox1.click的值?该怎样解决?

    2011年9月14日 1:35

答案