Question

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    abc()
    Refresh()

    Dim con As String = "Data Source = HCA-ISD03\SQLEXPRESS; Initial Catalog = QMS_HCA; User ID=qs; Password=ZAQ!2wsx; MultipleActiveResultSets=True"
    Dim conn As New SqlConnection(con)
    Dim Query As String = Nothing
    Dim Query2 As String = Nothing
    Dim Query3 As String = Nothing
    Dim adapter As New SqlDataAdapter

    Dim adapter1 As New SqlDataAdapter
    Dim ds As New DataSet()
    Dim table As New DataTable()
    Dim cmd1 As New SqlCommand


    Query = "Select sMessage, iAlert FROM MAS_Alert"
    Query2 = "SELECT REF_AlertPlate.sPlateNo, MAS_Alert.sMessage, REF_AlertPlate.iAlert, REF_AlertPlate.dStart, REF_AlertPlate.dEnd, REF_AlertPlate.sFrameNo FROM REF_AlertPlate INNER JOIN MAS_Alert ON MAS_Alert.iAlert=REF_AlertPlate.iAlert"
    Query3 = "SELECT iAlert, sMessage, dCreated, iCreatedBy FROM MAS_Alert"


    Try
        conn.Open()

        adapter.SelectCommand = cmd
        adapter.SelectCommand = New SqlCommand(Query, conn)
        adapter.SelectCommand = New SqlCommand(Query2, conn)
        adapter.SelectCommand = New SqlCommand(Query3, conn)

        adapter.Fill(ds)
        adapter.Dispose()
        cmd.Dispose()

        ComboBox1.Items.Clear()

        DataGridView2.DataSource = ds.Tables(0)

        DataGridView1.DataSource = ds.Tables(1)

        ComboBox1.DataSource = Nothing

        ComboBox1.Refresh()
        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.ValueMember = "iAlert"
        ComboBox1.DisplayMember = "sMessage"

        Catch ex As Exception

    End Try
    conn.Close()



End Sub

如何加载datagridView1？唯一加载的DataGridView是DataGridView2。对不起，如果我输入错了，我在formload中设置了三个查询。我应该先做什么？唯一加载的查询是 Query 和 Query2 ，谢谢您的配合。希望你能帮助我。

Answer 1

我为DataGridView1创建了另一个子，然后在FormLoad中调用它

Sub Query3()


    Dim con As String = "Data Source = HCA-ISD03\SQLEXPRESS; Initial Catalog = QMS_HCA; User ID=qs; Password=ZAQ!2wsx; MultipleActiveResultSets=True"
    Dim conn As New SqlConnection(con)
    Dim Query3 As String = Nothing
    Dim adapter As New SqlDataAdapter

    Dim adapter1 As New SqlDataAdapter
    Dim ds As New DataSet()
    Dim table As New DataTable()
    Dim cmd1 As New SqlCommand

    Query3 = "SELECT iAlert, sMessage, dCreated, iCreatedBy FROM MAS_Alert"


    Try
        conn.Open()

        adapter.SelectCommand = cmd
        adapter.SelectCommand = New SqlCommand(Query3, conn)

        adapter.Fill(ds)
        adapter.Dispose()
        cmd.Dispose()

        DataGridView1.DataSource = ds.Tables(0)



    Catch ex As Exception

    End Try
    conn.Close()




End Sub

问题已解决。抱歉，如果我输入错误。

TabPages上有多个DataGridView。 vb.net

1 个答案: