delphi 字段数据判断是不是为空并创建项目。

(SQL) 产品表 product
字段 productID,Item1,Item2,Item3,Item4,Item5 //T(Item 是检验项目5个)

检验表 TEST
字段 PRODUCTID,item1,
PRODUCTID,item2,
PRODUCTID,item3,
PRODUCTID,item4,
PRODUCTID,item5,

我想实现判断 产品表product 检验项目ItemX如果为空则不创建到 TEST。

DELPHI 新手不知道怎么写这个,不希望用SQL 来实现 还是希望用DELPHI,最好是写一个循环语句,一条条写这个判断好累人啊我有15个要判断了。感谢。

adoquery.First;
while not adoquery.Eof do
begin
for i=0 to adoquery.Fields.Count do
begin
if Pos('Item', adoquery.Fields[i].Name)>= 0 then
begin

{ TODO -oAdministrator -c : 2013-9-6 12:34:41 }
end;
end;
end;追问

adoquery.First; \\第一个字段?
while not adoquery.Eof do \\当没有到达最后一字段时
for i=0 to adoquery.Fields.Count do \\ 循环 0 to 字段数
if Pos('Item', adoquery.Fields[i].Name)>= 0 then \\ POS('AB','CABD')返回是多少?

TODO最后不懂。

追答

adoquery.First; \\第一条记录
while not adoquery.Eof do \\当没有到达最后一条记录
for i=0 to adoquery.Fields.Count do \\ 循环 0 to 字段数
if Pos('Item', adoquery.Fields[i].Name)>= 0 then \\ 判断字段是什么

TODO这里就是插入数据到你的TEST表

追问

for i=0 to adoquery.Fields.Count do \\ 循环 0 to 字段数

第0个字段 是什么字段?不是1 TO 字段数么?
adoquery.First; \\第一条记录
while not adoquery.Eof do \\当没有到达最后一条记录
已经指定第一条记录了,当没有到达最后一条记录怎么理解这句?
谢谢

追答

for i=0 to adoquery.Fields.Count -1 do \\应该是这样

adoquery.First; \\第一条记录
while not adoquery.Eof do \\当没有到达最后一条记录

里面运算完了, 还应该有加一条
adoquery.next;

你基础太差了

温馨提示:答案为网友推荐,仅供参考
第1个回答  2013-09-06
循环ado的fields就可以了

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网