begin
for i:=0 to dxTreeList1.Items[0].Count-1 do
begin
QryRun.First;
while not QryRun.Eof do
begin
if QryRun.FieldByName('cxsj').AsString=dxTreeList1.Items[0].Values[1] then
begin
dxTreeList1.Items[0].Values[2] :=True;
QryRun.Last;
end;
QryRun.Next;
end;
dxTreeList1.Items[0].Values[2] :=False;
end;
其中Values[2]是TdxTreeListCheckColumn型式的列,为什么我设置它复选的时候没用不管是True还是False都不改变,但手工设置却可以。
for i:=0 to dxTreeList1.Items[0].Count-1 do
begin
QryRun.First;
while not QryRun.Eof do
begin
if QryRun.FieldByName('cxsj').AsString=dxTreeList1.Items[0].Values[1] then
begin
dxTreeList1.Items[0].Values[2] :=True;
QryRun.Last;
end;
QryRun.Next;
end;
dxTreeList1.Items[0].Values[2] :=False;
end;
其中Values[2]是TdxTreeListCheckColumn型式的列,为什么我设置它复选的时候没用不管是True还是False都不改变,但手工设置却可以。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货