增加一个varchar(1)字段,初始为空
adoquery.sql := select ' ' as Checked * into #tmptalbe from table1 where ...
select * from #tmptable
点击的时候修改Checked值:
adoquery.edit;
if ((Column.fieldname = Checked) and (adoquery.fieldbyname("checked").asstring = " ")) then
adoquery.fieldbyname("checked").asstring = "Y"
else
if ((Column.fieldname = Checked) and (adoquery.fieldbyname("checked").asstring = "Y")) then
adoquery.fieldbyname("checked").asstring = " "