盒子论坛 v2.1

为什么执行下面的程序会出现下面的错误，我不明白，我比较笨，试不出来，请大家帮忙看看！！
procedure TForm1.Button4Click(Sender: TObject);
begin
  table2.First;
if trim(dbedit3.text)<>' then
   {repeat
      table2.next;
     until
   trim(dbedit3.Text)=table2.FieldByName('type').AsString;}
if table2.Locate('type',VarArrayof(['trim(dbedit3.Text)']),[loPartialKey]) then
   begin
     dbedit1.text:=trim(table2.fieldbyname('code').AsString);
     dbedit2.text:=trim(table2.fieldbyname('name').AsString);
     table1.Refresh;
   end
end;
----------------------------------------------
命运是一只沦落在鸡窝里的鹰

作者：

gaowei_sxpti (龙心印)	★☆☆☆☆	-
	普通会员

2004/3/18 9:47:51

1楼：

原因可能是某个字段应该有值的，但是没有输入或取到的是空值，就报那样的错误
----------------------------------------------
-菜鸟一个，恳请指教！

作者：

ddzhouqian (007)	★☆☆☆☆	-
	盒子活跃会员

2004/3/18 12:31:02

2楼：

DBEDIT?
----------------------------------------------
-

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/18 13:42:47

3楼：

问题应该是1楼所说的那种情况，我以前经常碰到这种问题的。
你调试一下就能找到问题出在哪条语句了。
----------------------------------------------

男儿贵展平生志，为国输忠合天地。甲穿虽则失黄金，剑缺犹能生紫气。塞草萋萋兵士苦，胡虏如今勿胡虏。封侯十万始无心，玉关生入君看取。

敬请光临学海Delphi站
http://delphi.studysea.net
学海无涯，让我们共同成长！

信息

登陆以后才能回复