SYSDBA в 08:18, 12 ноября 2009

2009-11-12T08:18:37Z

Kaa в 05:17, 14 ноября 2007

2007-11-14T05:17:51Z

Новая страница

На пользовательской форме '''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
''Статья подготовлена по консультации с Александром''

@@ Строка 20: / Строка 20: @@
      set rp_Main147061948_902250434 = BaseQueryList
    end function
 ''Статья подготовлена по консультации с Александром''

Выбор записей в гриде через CheckBox - История изменений

SYSDBA в 08:18, 12 ноября 2009

Kaa в 05:17, 14 ноября 2007