追加的问题(100分)

J

jameschin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-09

• #1

我用如下代码完成追加
procedure TForm1.sb_appendClick(Sender: TObject);
begin
mydata.ADOTable1.Append;
form1.Edt_name.SetFocus;
mydata.ADOTable1name.AsString := form1.Edt_name.Text;
mydata.ADOTable1sex.Value := form1.chk_sex.Checked;
end
sb_append 是speedbotton
edt_name 是edit
chk_sex是checkbox
追加后调用post方法后dbgrid只得到sex字段的值,name的值是空的

 

H

hua8hua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #2

去掉form1.Edt_name.SetFocus;这句看看

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #3

怎么tform1了还需要form1.edit..
怪怪的说。

 

D

dedman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-15

• #4

会不会这一句mydata.ADOTable1name.AsString := form1.Edt_name.Text;
text为空吧

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-16

• #5

看源程序没有问题呀...
mydata.ADOTable1name.AsString := form1.Edt_name.Text;
showmessage(mydata.ADOTable1name.AsString );
mydata.ADOTable1sex.Value := form1.chk_sex.Checked;
showmessage(mydata.ADOTable1sex.Value );
看看.

 

H

Hjking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-16

• #6

mydata.ADOTable1name.AsString := form1.Edt_name.Text;
改为：
mydata.ADOTable1name.Value:= form1.Edt_name.Text;
试试。
Edt_name.SetFocus;放到Append前面。

 

J

jameschin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-17

• #7

多人接受答案了。