同上,
解决方案 »
- 有朋友用过richedit吗?这个框里面的内容保存的话,尺寸非常大,有什么好办法解决吗?
- 请问谁知道怎么样才能把RXLib2.75这个组件安装delphi7.0中
- 关于动态连接库dll的问题,请大家帮忙啊!
- 求取本机MAC地址的Delphi代码,谢谢各位哥哥姐姐,祝你们长命百岁,越来越漂亮!!!!!
- 有耐心的高手请进
- 日期问题?好烦!
- socket问题!
- TDBEdit的问题 100分送
- 在数据查询时,输入查询条件时如何象在IE浏览器输入网址那样有相同的字符则会自动出现由你选择!
- 如何解决delphi遍isapi程序时,输出文件的更新问题
- 怎么样在Where语句中加动态的条件啊
- 为什么我的SQL语句加了Where就出错啊?
Pivate
FieldSort :String;
FlagSort :Boolean;在窗体FormSHow事件中
初始化:
FieldSort :='';
FlagSort :=False;
然后再DBGrid1TitleClick(Column: TColumn);
begin
FlagSort :=Not FlagSort;
FieldSort :=Column.FieldName;
with AdoQuery1 do
begin
Close;
Sql.Add('select * from Table ');
if FieldSort<>'' then
if FlagSort then
Sql.Add('ord by '+FIeldSort+' asc ')//升序
else
Sql.Add('ord by '+FIeldSort+' desc ');//降序
Open;
end;
end;
2,单击dbgrid的标题按标题排序:adoquery1.sort:=colmnu.fieldname;