原来:
姓名 分数
张三 5
张三 6
张三 6
李四 1
李四 2
王二 7
王二 8
王二 9现在:
张三 5
6
6
李四 1
2
王二 7
8
9
姓名 分数
张三 5
张三 6
张三 6
李四 1
李四 2
王二 7
王二 8
王二 9现在:
张三 5
6
6
李四 1
2
王二 7
8
9
解决方案 »
- 如何给Image加上边框,并且可以设置边框的颜色???
- TreeView控件的 onChanging 相关问题
- dcom 客户端连接提示拒绝访问,中间件在windows 2003系统上,客户机与服务器相同用户与密码则可以连接,请问适何问题
- 美女不理我了,我该怎么办?
- 菜鸟发问,经常看到有的软件上的Lable可以选中。请问这是什么控件的啊。
- 高分求教IntraWeb问题
- 有谁了解intraweb这个东东?
- 从1,2,3,4,5,6,7,8,9,10,11,12,13个数中,任意取出7个数进行组合,然后将组合逐行加入到DBGRID中,怎么实现?
- 如何对文件操作?请教!!!!!!!!!!!!
- Delphi向SQL中存储图像的问题.
- 关于QuickReport安装的问题!100分在线等!!分不够再加!
- 哪位高手知道打包ACCESS时不将.MDB文件(占用空间)打进去,表程序创建,请问有方法解决吗
1.将表的所有字段设成永久字段;
2.在“姓名”这个永久字段(假设名为ADOTable1DSDesigner)的OnGetText事件中加入下面的代码:
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1ID: TAutoIncField;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TIntegerField;
ADOConnection1: TADOConnection;
ADOTable2: TADOTable;
procedure ADOTable1DSDesignerGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
private
{ Private declarations }
public
{ Public declarations }
str:string;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ADOTable1DSDesignerGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if str = ADOTable1DSDesigner.AsString then
begin
text := '';
end
else
begin
str :=ADOTable1DSDesigner.AsString;
text := str;
end;
end;end.