if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields); // Set KeyFields only on
lookup fields
while Pos(myFieldName,';')<>0 do //确定分号的位置
myFieldName:=copy(myFieldName,1,Pos(myFieldName,';')-1)+','+ //取分号前面的字符
copy(myFieldName,Pos(myFieldName,';')+1,100); //取分号后面的字符
with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do //查询功能
begin
SqlStr := UpperCase(Sql.Text);
// if pos(myFieldName,SqlStr)=0 then exit;
if ParamCount>0 then
begin
SavedParams := TParams.Create;
SavedParams.Assign(Params);
end;
OrderPos := pos('ORDER',SqlStr);
if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
TempStr := ' Order By ' + myFieldName + ' Asc'
else if pos('ASC',SqlStr)=0 then
TempStr := ' Order By ' + myFieldName + ' Asc'
else
TempStr := ' Order By ' + myFieldName + ' Desc';
if OrderPos<>0 then SqlStr := Copy(SqlStr,1,OrderPos-1);
SqlStr := SqlStr + TempStr;
Active := False;
Sql.Clear;
Sql.Text := SqlStr;
if ParamCount>0 then
begin
Params.AssignValues(SavedParams);
SavedParams.Free;
end;
Prepare;
Open;
end;
end;
曾经拥有 20:45:24
那怎么在DBGrid的Title显示三角和倒三角？
云中霹雳 20:45:25
好象被我弄的太乱了，原版发一下
云中霹雳 20:45:39
什么三角，倒三角？
曾经拥有 20:45:41
那怎么在DBGrid的Title排序时显示三角和倒三角？
云中霹雳 20:46:09
就是用图表表示出来？
云中霹雳 20:46:15
图标？
曾经拥有 20:46:16
不是。
云中霹雳 20:46:31
还是按从小到大还是从大到小？
曾经拥有 20:46:54
你等等。。。
云中霹雳 20:47:06
procedure TFHkdata.SortQuery(Column:TColumn);
var
SqlStr,myFieldName,TempStr: string;
OrderPos: integer;
SavedParams: TParams;
begin
if not (Column.Field.FieldKind in [fkData,fkLookup]) then exit;
if Column.Field.FieldKind =fkData then
myFieldName := UpperCase(Column.Field.FieldName)
else
myFieldName := UpperCase(Column.Field.KeyFields);
while Pos(myFieldName,';')<>0 do
myFieldName := copy(myFieldName,1,Pos(myFieldName,';')-1)+ ',' + copy(myFieldName,Pos(myFieldName,';')+1,100);
with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
begin
SqlStr := UpperCase(Sql.Text);
// if pos(myFieldName,SqlStr)=0 then exit;
if ParamCount>0 then
begin
SavedParams := TParams.Create;
SavedParams.Assign(Params);
end;
OrderPos := pos('ORDER',SqlStr);
if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then
TempStr := ' Order By ' + myFieldName + ' Asc'
else if pos('ASC',SqlStr)=0 then
TempStr := ' Order By ' + myFieldName + ' Asc'
else
TempStr := ' Order By ' + myFieldName + ' Desc';
if OrderPos<>0 then SqlStr := Copy(SqlStr,1,OrderPos-1);
SqlStr := SqlStr + TempStr;
Active := False;
Sql.Clear;
Sql.Text := SqlStr;
if ParamCount>0 then
begin
Params.AssignValues(SavedParams);
SavedParams.Free;
end;
Prepare;
Open;
end;
end;
曾经拥有 20:47:31
显示倒三角
云中霹雳 20:48:06
哦，那不知道了
杭州－Tommy 20:48:52
只是用个flag来判断下不就可以了？
深圳-♂沙子 20:49:05
有这个特殊符号，画上去的
曾经拥有 20:49:18
那这个 是怎么显示出来的？
云中霹雳 20:49:39
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
TFHkdata.SortQuery(Column);
end;
结束！
杭州－Tommy 20:50:00
不是可以设置它的title吗？后面再加上个三角形啊
云中霹雳 20:50:28
好象有道理可能就是这么弄的
