|
|
|
новичок
участник
Last Login: 21.02.2007 21:18
Сообщ.: 1,
Visits: 6
|
|
Среда VB6. Из таблицы stat (access97) в datBase(контрол DATA) делается выборка. Контрол привязан к MSFLEXGRID'у, пытаюсь сделать сортировку в гриде по столбцам, т.е. на какой столбец юзер кликает - по тому и сортируем, второй раз кликает сортирую в обратную сторону, собственно как обычно это бывает. Всё работает пока я не кликну по шапке грида в 25 или 26-ой раз, тогда выскакивает ошибка "Can't open any more tables". Как я понимаю, что я открываю, но не закрываю рекордсеты, поэтому ошибка. Какие(ой) рекордсет закрывать в моем случае?
----------------------------------
Private Sub grdData_Click()
Dim sSortFld As String
If grdData.MouseRow = 0 Then
bSortType = Not (bSortType)
sSortFld = Choose(grdData.MouseCol + 1, "typd", "typb", "serial", "ncar", "dated", "datet", "tester", "status", "nerr")
If bSortType Then
sSortFld = sSortFld + " desc"
End If
datBase.Recordset.Sort = sSortFld
Set datBase.Recordset = datBase.Recordset.OpenRecordset
datBase.Recordset.OpenRecordset.Close
End If
End Sub
|
|
|
|