Выбор записей в гриде через CheckBox

На пользовательской форме usrf_MY_FORM размещен грид usrg_gsIBGrid1: TgsIBGrid. Мы хотим организовать выбор записей через CheckBox. Для этого в свойстве CheckBox грида заполняем следующие позиции: FieldName = ID (поле ID таблицы USR$MY_TABLE, которая отображается в гриде), FirstColumn = True (отображать CheckBox в первой колонке грида).

Создадим отчет, куда попадут записи, выбранные в CheckBox. Функция отчета будет иметь вид:

 option explicit
 function rp_Main147061948_902250434(OwnerForm)
   dim usrg_gsIBGrid1,ID, i, cont
   set usrg_gsIBGrid1 = OwnerForm.GetComponent("usrg_gsIBGrid1")
   for i = 0 to usrg_gsIBGrid1.CheckBox.CheckList.Count - 1
     if cont <> "" then cont = cont + ","
     cont = cont + usrg_gsIBGrid1.CheckBox.CheckList.Strings(i)
   next
   ID = "(" + cont + ")"
   dim SN
   set SN = BaseQueryList.Query(BaseQueryList.Add("Sender", 0))
   SN.SQL = "SELECT USR$MY_TABLE.USR$NAME " + _
            "FROM USR$MY_TABLE " + _
            "WHERE USR$MY_TABLE.ID IN " & ID 
   SN.Open
   set rp_Main147061948_902250434 = BaseQueryList
 end function

Статья подготовлена по консультации с Александром