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都不改变,但手工设置却可以。