本文介绍了一种在树形列表中通过字段名查找特定列的方法，适用于数据库操作中的复杂查询场景。
function TreeListColumnByFieldName(ATreeList: TcxDBTreeList;
AFieldName: String): TcxDBTreeListColumn;
var
i: Integer;
ADBColumn: TcxDBTreeListColumn;
begin
Result := nil;
for i := 0 to ATreeList.ColumnCount - 1 do begin
ADBColumn := TcxDBTreeListColumn(ATreeList.Columns[ i ]);
if ADBColumn.DataBinding.FieldName = AFieldName then begin
Result := ADBColumn;
Break;
end;
end;
end;
AFieldName: String): TcxDBTreeListColumn;
var
i: Integer;
ADBColumn: TcxDBTreeListColumn;
begin
Result := nil;
for i := 0 to ATreeList.ColumnCount - 1 do begin
ADBColumn := TcxDBTreeListColumn(ATreeList.Columns[ i ]);
if ADBColumn.DataBinding.FieldName = AFieldName then begin
Result := ADBColumn;
Break;
end;
end;
end;
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
