'---------------------------------------------------
'Вывод в 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