пустой грид - ошибка

[lord0n]

мож кто поможет.
проблемма в следующем:

Код: Выделить всё


Private Sub grdP_Click()

Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Appath & "Hranenie.mdb;Mode=Share Deny None;"

Set RS = New ADODB.Recordset
RS.Open "select №_поставки, Поставшик, №_машины from Hran where №_поставки = '" & grdP.Text & "' Order by Артикул", db, adOpenDynamic, adLockOptimistic

txtNumPost.Text = RS.Fields(0)
txtPostavshik.Text = RS.Fields(1)
txtNumMash.Text = RS.Fields(2)

RS.Close

RS.Open "select Артикул, Наименование, Количество, Партия, Срок_годности, Блокировка, Еденица_измерения, Адрес_места from Hran where №_поставки = '" & grdP.Text & "' Order by Артикул", db, adOpenDynamic, adLockOptimistic

Set grd.DataSource = RS

End Sub


если грид пустой, то вылитает ошибка

можно ли как то проверить грид пустой или нет?

[Konst_One]

Код: Выделить всё

if rs is nothing then
  msgbox "Ошибка"
elseif rs.Eof or rs.Bof then
  msgbox "Нет записей"
else
  msgbox "OK"
  ....
end if

[lord0n]

да это понятно
а как мона проверить пустой грид или нет

[Konst_One]

rs.Eof or rs.Bof

[Booozer]

При наличии хотя-бы одной строки Len(grd.Columns(0).Text) будет больше 0.

[GSerg]

Да?
А ты уверен, что grd.Columns(0).Text существует, когда нет ни одной строки?

[Booozer]

В том-то и дело, что в случае отсутствия строк ничего не сформируется. Проверял.

[MeMBus]

После селекшена нуно проверить как писали выше на наличие данных

Код: Выделить всё

If (.EOF Or .BOF) Then
'Данных в выборке нет, отдыхаем
Else
'Можно работать с данными в выборке
End if

А по гриду - count

[lord0n]

А по гриду - count

что та я в MSHFlexGrid не нашел count

[coderx]

В MSHFlexGrid'е нету метода Count. Ты можешь использовать методу Rows, для определение строк грида, и Cols, для определение столбцов.

[MeMBus]

А я разве говорил про свойство Count у MSHFlexGrid? Я говорил о подсчете количества (вот оно самое count) строк, а для подсчета кол-ва для каждого контрола (будь то MSHFlexGrid или к примеру DataGrid) оно свое...