盒子论坛 v2.1

哪位大侠帮忙看看这段代码有什么问题吗？怎样改才能运行呢？
{var
  bookmark1:tbookmark;
begin
  bookmark1:=table1.GetBookmark;
  table1.DisableConstraints;
  table1.First;
  while not table1.Eof do
   begin
     with table1 do
     if table1.FieldByName('学号').AsString=edit1.Text
       then begin

              if (form20.ComboBox1.Text='第一学期') and
                 (table1.FieldByName('第一学期').AsString=')
                 then begin
                        table1.Edit;
                        table1.Insert;
                        table1.FieldValues['第一学期']:=edit2.Text;
                      end
              else showmessage('该处已有记录，请先删除再录入！');
             table1.Post;
             table1.Refresh;
             {table1.Next;

         table1.GotoBookmark(bookmark1);
         table1.FreeBookmark(bookmark1);
         table1.EnableControls; }
         end
       else showmessage('没有该学号，请重新输入！');}

----------------------------------------------
-

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/14 15:42:38

1楼：

begin
  with table1 do begin
     //DisableControls;
    if locate('学号', VarArrayof([edit1.Text]),[loPartialKey]) then
      if (form20.ComboBox1.Text='第一学期')and(FieldByName('第一学期').AsString=')then begin
        Edit;
        FieldByName('第一学期').asstring:=edit2.Text;
        Post;
      end
      else showmessage('该处已有记录，请先删除再录入！');
    else showmessage('没有该学号，请重新输入！');
  end;
end;

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

yoyo_water (yoyo_oyoy)	★☆☆☆☆	-
	普通会员

2004/3/14 15:44:35

1楼：

我是想在表中先找出已经有的关键字，再在其后面插入内容。、
注：表中只有关键字一列（已经存在），其后只有字段名，没有字段内容（是需要插入的内容）
----------------------------------------------
-

作者：

yoyo_water (yoyo_oyoy)	★☆☆☆☆	-
	普通会员

2004/3/14 15:51:39

2楼：

谢谢一楼的主人，我试了。不过
if locate('学号', edit1.Text) then
有问题，问题提示是
[Error] Unit20.pas(61): Not enough actual parameters
----------------------------------------------
-

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/3/14 16:00:13

3楼：

是我写错了，已经改了
其实F1里很详细的！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

yoyo_water (yoyo_oyoy)	★☆☆☆☆	-
	普通会员

2004/3/14 16:16:04

4楼：

多谢了，可以用了。以后还会有很多需要帮忙的请多关照啊！
我刚接触DELPHI不久，希望多帮帮忙啦！
----------------------------------------------
-

作者：

yoyo_water (yoyo_oyoy)	★☆☆☆☆	-
	普通会员

2004/3/14 16:19:35

5楼：

对了，我还想问一下。如果我有八个学期的内容要录入，那是不是就要用八个IF语句呢？有没有简洁一点的方法啊！
----------------------------------------------
-

信息

登陆以后才能回复