And怎么不起作用了？只有15分了，全部献出。 ( 积分: 15 )

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-17

• #1

if ((CheckBoxList.Checked=true) and (CheckBoxList.Caption ='品名')) then
begin
ChoiceLabelList.Add('品名');ChoiceDBLableList.Add('A1');
end;
if (CheckBoxList.Checked=true and (CheckBoxList.Caption='颜色')) then
begin
ChoiceLabelList.Add('颜色');ChoiceDBLableList.Add('A2');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='库房')) then
begin
ChoiceLabelList.Add('库房');ChoiceDBLableList.Add('A3');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) then
begin
ChoiceLabelList.Add('货位');ChoiceDBLableList.Add('A4');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='日期')) then
begin
ChoiceLabelList.Add('日期');ChoiceDBLableList.Add('A5');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='有效期')) then
begin
ChoiceLabelList.Add('有效期');ChoiceDBLableList.Add('A6');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='生产厂商')) then
begin
ChoiceLabelList.Add('生产厂商');ChoiceDBLableList.Add('A7');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='客户')) then
begin
ChoiceLabelList.Add('客户');ChoiceDBLableList.Add('A8');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='出库单号')) then
begin
ChoiceLabelList.Add('出库单号');ChoiceDBLableList.Add('A9');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='数量')) then
begin
ChoiceLabelList.Add('数量');ChoiceDBLableList.Add('A10');
end;
我测试的时侯只要
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) 满足一次他就会把剩下作有的语句都执行？？？？？

 

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-17

• #2

if ((CheckBoxList.Checked=true) and (CheckBoxList.Caption ='品名')) then
begin
ChoiceLabelList.Add('品名');ChoiceDBLableList.Add('A1');
end;
if (CheckBoxList.Checked=true and (CheckBoxList.Caption='颜色')) then
begin
ChoiceLabelList.Add('颜色');ChoiceDBLableList.Add('A2');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='库房')) then
begin
ChoiceLabelList.Add('库房');ChoiceDBLableList.Add('A3');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) then
begin
ChoiceLabelList.Add('货位');ChoiceDBLableList.Add('A4');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='日期')) then
begin
ChoiceLabelList.Add('日期');ChoiceDBLableList.Add('A5');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='有效期')) then
begin
ChoiceLabelList.Add('有效期');ChoiceDBLableList.Add('A6');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='生产厂商')) then
begin
ChoiceLabelList.Add('生产厂商');ChoiceDBLableList.Add('A7');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='客户')) then
begin
ChoiceLabelList.Add('客户');ChoiceDBLableList.Add('A8');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='出库单号')) then
begin
ChoiceLabelList.Add('出库单号');ChoiceDBLableList.Add('A9');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='数量')) then
begin
ChoiceLabelList.Add('数量');ChoiceDBLableList.Add('A10');
end;
我测试的时侯只要
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) 满足一次他就会把剩下作有的语句都执行？？？？？

 

雪

雪狐狸

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-17

• #3

if ((CheckBoxList.Checked=true) and (CheckBoxList.Caption ='品名')) then
begin
ChoiceLabelList.Add('品名');ChoiceDBLableList.Add('A1');
end;
if (CheckBoxList.Checked=true and (CheckBoxList.Caption='颜色')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('颜色');ChoiceDBLableList.Add('A2');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='库房')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('库房');ChoiceDBLableList.Add('A3');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) then　　//这里缺几个括号！！！
begin　　
ChoiceLabelList.Add('货位');ChoiceDBLableList.Add('A4');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='日期')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('日期');ChoiceDBLableList.Add('A5');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='有效期')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('有效期');ChoiceDBLableList.Add('A6');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='生产厂商')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('生产厂商');ChoiceDBLableList.Add('A7');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='客户')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('客户');ChoiceDBLableList.Add('A8');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='出库单号')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('出库单号');ChoiceDBLableList.Add('A9');
end;
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='数量')) then　　//这里缺几个括号！！！
begin
ChoiceLabelList.Add('数量');ChoiceDBLableList.Add('A10');
end;
我测试的时侯只要
if ( CheckBoxList.Checked=true and (CheckBoxList.Caption='货位')) 满足一次他就会把剩下作有的语句都执行？？？？？ 　　//这里也是缺几个括号！！！

 

Z

zhengdehei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-17

• #4

没有其他条件时，可以写成
if CheckBoxList.Checked=true then
但如果包含其他条件，就必须写成
if (CheckBoxList.Checked=true) and (CheckBoxList.Caption='数量') then
括号是优先符

 

H

handsome1234

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-17

• #5

多人接受答案了。