一般排序是在TABLE,QUERY等中才可以实现的. 你可以在相关的事件里做一个循环, 如 i:=0; while not query1.eof begin i:=i+1; query1.edit; query1.fieldbyname('sort').value:=i; query1.post; query1.next; end;
我主要是想实现dbgrid中记录拖拽功能,赋值我会的:)
dbgrid中记录拖拽 =============== DBGrid不是可以拖动的吗?你要达到什么要求呢?排序 DBGrid1的onTitleClick var DataSet: TDataSet; begin {点击标题栏,排序} //▼ ▲
DataSet := Column.Field.DataSet; if not DataSet.Active then exit; if DataSet is TCustomADODataSet then with TCustomADODataSet(DataSet) do begin if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then begin Sort := Column.Field.FieldName + ' DESC'; end else begin Sort := Column.Field.FieldName + ' ASC'; end; end;
你可以在相关的事件里做一个循环,
如
i:=0;
while not query1.eof
begin
i:=i+1;
query1.edit;
query1.fieldbyname('sort').value:=i;
query1.post;
query1.next;
end;
===============
DBGrid不是可以拖动的吗?你要达到什么要求呢?排序
DBGrid1的onTitleClick
var
DataSet: TDataSet;
begin
{点击标题栏,排序} //▼ ▲
DataSet := Column.Field.DataSet;
if not DataSet.Active then exit; if DataSet is TCustomADODataSet then
with TCustomADODataSet(DataSet) do
begin
if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then
begin
Sort := Column.Field.FieldName + ' DESC';
end
else
begin
Sort := Column.Field.FieldName + ' ASC';
end;
end;
www.2ccc.com 有的下!
就是insert2003(高级打字员) 的方法