请问，在Ttable控件里为什么不可以用if(edit3.Text=fieldbyname('账号').AsString) then的这种形式阿？好像根本都没有读这条语句！
请多指教~~

不是阿 该走这条的时候它也没走啊

也就是说在程序里用tabel1.fieldbyname('账号').AsString的语句是没有错吧？可运行起来却没有体现，会不会是别的什么地方没有设置呢？呵呵 麻烦版主了

procedure TForm1.Button1Click(Sender: TObject);
begin
if(trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') then
begin
with form1.table1 do
begin
first;
while not eof do
begin
if(edit3.Text=fieldbyname('账号').AsString) then
showmessage('该账号已经存在！')
else
begin
edit;
append;
fieldbyname('账号').AsString:=edit3.Text;
fieldbyname('姓名').AsString:=edit1.Text;
fieldbyname('密码').AsString:=edit2.Text;
post;
Refresh;
showmessage('注册成功！');
break;
end;
end;
end;
ss:=form1.Table1.FieldByName('学号').AsString;
form3.Table1.Edit;
form3.Table1.FieldByName('学号').AsString:=ss;
form3.table1.Post;
form4.Table1.Edit;
form4.Table1.FieldByName('学号').AsString:=ss;
form4.table1.Post;
form5.Table1.Edit;
form5.Table1.FieldByName('学号').asstring:=ss;
form5.table1.Post;
form6.Table1.Edit;
form6.Table1.FieldByName('学号').asstring:=ss;
form6.table1.Post;

end
else
showmessage('信息填写的不完整！');

edit3.Text:='';
edit1.Text:='';
edit2.Text:='';
end;

不好意思 还落了一句 var ss:string;

哦~~~原来我的错误这么大啊~~~~呵呵 非常感谢！！刚刚我试过了，好使了！