Несколько DataGridView на вкладках. vb.net - PullRequest
Новая
       17

Несколько DataGridView на вкладках. vb.net

0 голосов
/ 07 сентября 2018 
 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.Извините, если я ошибаюсь, я задаю три запроса в форме загрузки.Что мне делать в первую очередь ??Единственный загружаемый запрос - это Query и Query2 Спасибо заранее, друзья.Надеюсь, что вы можете мне помочь.

1 Ответ

0 голосов
/ 07 сентября 2018

Я создал другую подпрограмму для 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

Проблема решена. Извините, если я допустил ошибку.

...