Question

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个要判断了。感谢。

Answer 1

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;

你基础太差了

Answer 2

循环ado的fields就可以了