Обновить DGV после обновления или добавления записи (уже есть предварительная проверка) - PullRequest
Новая
       20

Обновить DGV после обновления или добавления записи (уже есть предварительная проверка)

0 голосов
/ 08 октября 2019

Итак, у меня уже есть функция предварительного вызова, которая обновляет dgv, но когда я вызываю этот саб из другого сабвуфера, он не обновляется, пока я не использую кнопку для предподготовки.

Это мой саб 

Public Sub prePall()
        Dim con As OleDbConnection = New OleDbConnection
        Dim table As New DataTable
        Dim sx As String = ""
        Dim s As String = "select * from tblQuestionary", sErro As String = ""
        Dim ds As New DataSet
        'GetTable(sx, s, table, sErro, ds)

        If GetTable(sx, s, table, sErro, ds) Then
            gridQuestionary.DataSource = table

        End If

    End Sub

Это моя кнопка, которая будет вызывать суб 

Private Sub CmdPrepall_Click(sender As Object, e As EventArgs) Handles cmdPrepall.Click
        prePall()

    End Sub

Это функция для удаления записи 

 Function deleteCMD(q As crudDelete) As Boolean
        Dim con As OleDbConnection = New OleDbConnection
        '  Dim table As New DataTable
        Dim s As String
        Dim sql As String
        Dim oledbAdapter As New OleDbDataAdapter

        Select Case q
            Case crudDelete.Questionario
                s = "Select COUNT (*) FROM tblE where IDQuestionary =" & Val(Trim(lblIDQuestionary.Text)) & ""
                Try
                    Using datadapter = New OleDb.OleDbCommand(s, DBconnection)
                        Dim countOfRecords As Integer
                        countOfRecords = datadapter.ExecuteScalar()
                        If countOfRecords > 0 Then
                            MsgBox("Questionary cannot be deleted")
                        Else
                            sql = "Delete * from tblQuestionary where ID=" & Val(Trim(lblIDQuestionary.Text)) & ""
                            deleteRow(sql)
                            cmdPrepall.PerformClick()
                        End If
                    End Using
                Catch ex As Exception
                    MsgBox(Err.Description)
                End Try
        End Select
        Return True
    End Function

Я пытался использовать кнопку для выполнениядействие, я пытался использовать непосредственно сабвуфер, но ни один не работал. Но когда я нажимаю на кнопку, dgv обновляется. Я хочу обновить, не нажимая кнопку, просто вызвав ее из другого метода.

...