大家帮我看一下，错在什么地方(0分)

E

e9803122

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-08

• #1

procedure TEditForm.RzComboBox1Change(Sender: TObject);
begin
if RzComboBox1.Text then
begin
DM1.ADODataSet1.Edit;
DM1.ADODataSet1.FieldByName('tplj').AsString := RzComboBox1.Text;
DM1.ADODataSet1.Post;
end;

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-08

• #2

if RzComboBox1.Text then <<-- 这里,RzComboBox1.Text是String类型，不是Boolean类型

 

H

huangli_nj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-08

• #3

同楼上

 

Y

youjixiong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-08

• #4

嘿嘿。。刚学DELPHI吧，IF后面要求的是一个BOOLEAN类型，你看一下报错不就知道是什么错误了吗

 

M

mawei0913_green

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #5

顶

 

E

elsss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #6

procedure TEditForm.RzComboBox1Change(Sender: TObject);
begin
if trim(RzComboBox1.Text)<>'' then
begin
DM1.ADODataSet1.Edit;
DM1.ADODataSet1.FieldByName('tplj').AsString := RzComboBox1.Text;
DM1.ADODataSet1.Post;
end;
这样就对了

 

L

lkjx2007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #7

同意楼上