page12

Private Sub DBCombo1_Click(Area As Integer)
    '---------------------------------------------------
    'Вывод в DBGrid некоторых значений из таблицы по
    'запросу SQL. Основанием для запроса является
    'запись в DBCombo
    '---------------------------------------------------
    On Error GoTo ProError
    Dim SQLstr As String
    'проверка - должна ли быть видима таблица на этом
    'этапе
    If dbcAreaList = 2 Then
        If t = 0 Then
            t = 1
            DBGrid1.Visible = False
            Exit Sub
        End If

10      If t = 1 Then
            'запрос
            SQLstr = "SELECT PP as Запись, Number as Номер_платежки, Data as Дата , Recipient as Плательщик, Summa as Сумма FROM " & "Plategs1 WHERE " & "Payer= '" & DBCombo1.Text & "'"
            Data1.RecordSource = SQLstr
            Data1.Refresh
            If DBGrid1.Visible = False Then
                DBGrid1.Visible = True
                DBGrid1.SetFocus
                t = 0
                Exit Sub
            End If
        End If
    End If
    GoTo 10
ProError:
    Exit Sub
End Sub

Используются технологии uCoz