Просмотр исходного текста страницы Выбор записей в гриде через 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

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

[[Category:Учебный курс]]