关于一个多循环问题. ( 积分: 100 )

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #1

begin
sSql:='select rid,run_mode from HY_LINE_LOSS_GROUP';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:=sSql;
Query1.Open;
end;
Query1.First;
while not query1.Eof do
begin
for i:=0 to query1.Fields.Count-1 do
begin
sVal:= query1.Fields.AsString;//取查询到的数据
for iX:=3 to 7 do //对X轴的循环
for iY:= 2 to query1.Fields.Count+1 do //对Y轴的循环
begin
F1BookSetSText(F1Book6,iX,iY,iX,iY,true,2,sVal); //插入到表格中
showmessage(sVal);
end;
end;
query1.Next;
end;

{ }
{------------------------------------------------------------------------------------------}
finally
end;

我上面的循环,肯定是错的.这段代码要执行的意思我告诉大家一下,先查询到数据,如图:
1 一号
2 二号
3 三号
象这样的情况.其中sVal是取这中的某一个值.然后要把查询到的数据插入到对应的表格中.
也一样一个一个插入进去.这个循环我被搞晕了.希望各位帮忙,分不多.本人新手,望给予帮助,无限感激.

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #2

倒,没人吗?求求大家了,快点来帮忙啊!!

 

L

lcmlhs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #3

帮你顶，接个分

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #4

看不明白你需要达到什么样的效果。

 

G

googledcjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #5

说明白一点，数据集中的数据要跟表格怎么对应？

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #6

谢谢大家的参与.sVal是取数据的一个值,
数据库是这样的:
RID run_mode
1 一号
2 二号
表格是这样的.
Y轴第一个 Y轴的第二个 Y轴第三个
x轴第一个 1 一号
X轴第二个 2 二号
我不知道这样子表达你们还能不能看明白?
那也就是我要把这个sVal循环插入到表格中.

 

W

wang0801

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #7

你要达到什么目的呀

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #8

就是要把数据对号入座啊,还没看明白吗?

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #9

我的程序循环插入的结果是:
Y轴第一个 Y轴的第二个 Y轴第三个
x轴第一个 二号 二号
X轴第二个 二号 二号

我想要的结果是:

Y轴第一个 Y轴的第二个 Y轴第三个
x轴第一个 1 一号
X轴第二个 2 二号

这个循环要怎么去改呢?

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #10

晕倒!没人会?这个对于高手应该很容易解决吧.本人只是学习当中,对于循环问题,有点迷惑.

 

G

googledcjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #11

Query1.First;
iX := 0;
while not query1.Eof do
begin
inc(Ix);
for i:=0 to query1.Fields.Count-1 do
begin
sVal:= query1.Fields.AsString;//取查询到的数据
//把sVal放在x ＝ iX，y ＝ i + 2的位置
end;
query1.Next;
end;

 

Y

yzy88nihaoma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-12

• #12

googledcjt,
谢谢,经过你的提示,我已经完成了.

begin
sSql:='select * from HY_LINE_LOSS_GROUP';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:=sSql;
Query1.Open;
end;
Query1.First;
iX:=3;
while not query1.Eof do
begin
for i:=0 to query1.Fields.Count-1 do
begin
sVal:= query1.Fields.AsString;//取查询到的数据
F1BookSetSText(F1Book6,iX,i+2,iX,i+2,true,2,sVal); //插入到表格中
end;
iX:=iX+1;
query1.Next;
end;

{ }
{------------------------------------------------------------------------------------------}
finally
end;
这是循环出来的,给别人帮助.呵呵,顺便给gooogledcjt加分.