VSFlexGrid - Удаление нескольких записей

[SunnyVa]

Всем хорошего дня!
Столкнулась с такой проблемой: Данные в VSFlexGrid подгружаются через DataSource, соответсвенно удалить записи через команду RemoveItem я не могу (или я не права?)
Метода Delete к сожалению у данной компоненты нет, поэтому делаю следующим образом: ловлю событие KeyUp, в нем анализирую какая была нажата клавиша, соответсвенно если была нажата клавиша Del(Delete), то все что я могу узнать это номера строк, которые были выделены для удаления

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


For i = 0 To fg.SelectedRows - 1
            Debug.Print "Строка "; fg.SelectedRow(i); " выделена для удаления"
Next


Посоветуйте как мне организивать удаление, ведь удалять я должна из самого источника данных
Заранее спасибо

[alibek]

У источника данных есть поле или поля, однозначно идентифицирующие запись? Например, первичный ключ?
Если да, то удаляй данные непосредственно в источнике данных, например delete from table where key = 1

[lord0n]

Data1.Recordset.Delete

тока в гриде нужно сделать:

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


data1.Recordset.AbsolutePosition = grid.RowSel - 1


[lord0n]

У источника данных есть поле или поля, однозначно идентифицирующие запись? Например, первичный ключ?
Если да, то удаляй данные непосредственно в источнике данных, например delete from table where key = 1

блин не успел

[SunnyVa]

Ребят, у источника данных есть первичный ключ... Поле называется sa_id. Но ведь на момент нажатия кнопки Delete я знаю только строки, но пока не знаю какое значение поля sa_id у каждой выделенной строки...

[lord0n]

Ребят, у источника данных есть первичный ключ... Поле называется sa_id. Но ведь на момент нажатия кнопки Delete я знаю только строки, но пока не знаю какое значение поля sa_id у каждой выделенной строки...

можно по абсалют позишн(как я уже писал)
я так раньше и делал

[SunnyVa]

эх... мне бы лучше узнать значение sa_id...

[lord0n]

эх... мне бы лучше узнать значение sa_id...

а в чем проблема:
a=rs.fields(0)

нулевое поле обычно ключевое

[AjaxVS]

Дайте линк на VSFlexGrid +_+ Пжалста...

[lord0n]

Дайте линк на VSFlexGrid +_+ Пжалста...

а в поисковиках поискать, ни как?

[AjaxVS]

Чесслово, не нашел...
Искал еще и Janus.ocx - тоже самое...
Пойду читать доки гугла +_+

[SunnyVa]

Ребят, всем спасибо за советы...
Решила я в итоге сделать так: ловлю событие нажатие кнопки delete... там записываю в колекцию номера строк, которые были выделены для удаления.... затем вызываю событие удаления, в которое передаю эту коллекцию...

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


Dim dCol As Collection
        Set dCol = New Collection
        For i = 0 To fg.SelectedRows - 1
            dCol.Add fg.SelectedRow(i)
        Next
       
        RaiseEvent Delete(dCol)


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

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


Private Sub dgActions_Delete(dCol As Collection)
If PermissionDelete Then
    dgActions.RecDelete dCol
Else
    MsgBox "Нет полномочий на удаление", vbCritical, "Отсутствуют полномочия"
    Exit Sub
End If
End Sub

Public Sub RecDelete(dCol As Collection)
For i = 1 To dCol.Count 'цикл по колекции строк, которые нужно удалить
j = dCol.Item(i) - (i - 1) 'номер строки в vsflexgride, (i-1) - так как если пользователь хочет удалить несколько строк сразу, то после удаления первой строки идет смещение строк
fg.Select j, 1 'выделяю строку, которую необходимо удалить
ds.RecDelete 'вызывается процедура удаления из источника данных vsflexgrid-а
sys.Macros("LocalRequery").Execute 'обновляю vsflexgrid после удаления строки
Next i

End Sub



[GB826]

Зря, чтобы узнать ИД каждой удаляемой строки в твоем случае


fg.TextMatrix(fg.selectedrow(i),fg.ColIndex("sa_id"))

[Andrey Fedorov]

Чесслово, не нашел...
Искал еще и Janus.ocx - тоже самое...
Пойду читать доки гугла +_+

Э-э-х:

http://www.janusys.com, http://www.infragistics.com, http://www.componentone.com и другие - оно все прекрасно находится, только не надо выдумывать самостоятельно имена компонентов навроде Janus.ocx.

P.S С такими проблемами удаления я бы повесился...

[lord0n]

да, крута завинчено
я думаю можно сделать все намного проще

[Andrey Fedorov]

да, крута завинчено
я думаю можно сделать все намного проще

Я подскажу - не должно быть ни одной строки кода.
По крайней мере у меня их нет - при работе с Recordset-ом допускающим удаление.

P.S с VSFlexGrid-ом я не работаю, так что как конкретно с ним не знаю...

[lord0n]

да, крута завинчено
я думаю можно сделать все намного проще

Я подскажу - не должно быть ни одной строки кода.
По крайней мере у меня их нет - при работе с Recordset-ом допускающим удаление.

P.S с VSFlexGrid-ом я не работаю, так что как конкретно с ним не знаю...

погоди, а как ты удаляешь без кода
я использую одну строку(rs.delete), а как без кода - незнаю

[Andrey Fedorov]

погоди, а как ты удаляешь без кода
я использую одну строку(rs.delete), а как без кода - незнаю

А нафига оно - мне удалять?

Это Grid "говорит" Recordset-у на котором он основан что надо удалить такие-то записи. Мне-то зачем шевелиться - код для этого совершенно не нужен. По идее так должно быть с любым нормальным Grid-ом.

[lord0n]

погоди, а как ты удаляешь без кода
я использую одну строку(rs.delete), а как без кода - незнаю

А нафига оно - мне удалять?

Это Grid "говорит" Recordset-у на котором он основан что надо удалить такие-то записи. Мне-то зачем шевелиться - код для этого совершенно не нужен. По идее так должно быть с любым нормальным Grid-ом.

а нормальный это какой?
среди них бесплатные есть

[Andrey Fedorov]

а нормальный это какой?

Я использую Janus GridEx 2000 (http://www.janusys.com)
alibek пользует другой - я подзабыл название - он подскажет...

среди них бесплатные есть

Не знаю. У меня купленный - лицензия где-то дома валяется...
Но по серъезному поддерживать/развивать бесплатно серъезный продукт никто не будет.

[lord0n]

согласен
но мне по большому счету от грида требуется тока отображение рекордсета, а удаление и т.д. для меня лишнее

[Andrey Fedorov]

согласен
но мне по большому счету от грида требуется тока отображение рекордсета, а удаление и т.д. для меня лишнее

Все приходит со временем...

[SunnyVa]

погоди, а как ты удаляешь без кода
я использую одну строку(rs.delete), а как без кода - незнаю

А нафига оно - мне удалять?

Это Grid "говорит" Recordset-у на котором он основан что надо удалить такие-то записи. Мне-то зачем шевелиться - код для этого совершенно не нужен. По идее так должно быть с любым нормальным Grid-ом.

а вот в vsfleaxgrid-е этот момент упустили и поэтому пришлось мучаться... а удаление из самого источника у меня тоже одна строка, которая просто находится в определенном классе, который у меня называется clsDataset

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


rst.Delete adAffectCurrent


[alibek]

Я использую Janus GridEx 2000 (http://www.janusys.com)
alibek пользует другой - я подзабыл название - он подскажет...

Конечно скажу
QuantumXpressGrid

[lord0n]

Я использую Janus GridEx 2000 (http://www.janusys.com)
alibek пользует другой - я подзабыл название - он подскажет...

Конечно скажу
QuantumXpressGrid

пробовал - чета меня он не впячатлил
хотя это наверно потому что у меня запросы к гриду маленькие

[Andrey Fedorov]

пробовал - чета меня он не впячатлил
хотя это наверно потому что у меня запросы к гриду маленькие

Ну с таками запросами лучшими могут оказаться ListBox или ListView...