如何查找一条记录中所有不为空的字段的名称？(200分)

X

Xin_chufeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #1

一个信用卡管理表有400多个字段，用卡号做索引，我想查找一条记录中所有以0开头的所
有字段，打印这些字段名称。（注意：不是字段内容，比如打印的是“卡号”而不是“
00000000021”……），应如何做？
查找所有以1开头的字段，统计有多少个字段（数量）！
困惑之中！！多谢指点！！！
点数有限，心意无限！

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #2

建立一个数据字典,包含这所有字段
然后用游标把这些字段一个一个比较
id
fieldname
bool是否符合条件
描述
用游标滚动中
sql:='select * from tablename where '+ @fieldname+'=条件'
execsql(sql)
update 字典

 

H

hanhongfei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #3

可以使用语句实现
var
字段名:string;
begin
字段名:='*'
with table do
begin
for i:=0 to fieldcount-1 do
begin
if copy(fieldbyname(fields.fieldname),1,1)='0' then
字段名:=字段名+'*'+Fields.FieldName;
end;
print 字段名
end;
end;
注:可以改用query控件过滤所需的一条记录,然后使用

 

Y

yxjdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-14

• #4

就是就是