控件:edit1,edit2,combobox1;
edit1//输入id
edit2//对同一个id输入数值
combobox1//对同一个id输入i次edit2要求:
1、对同一个id输入i次数值,次数用combobox1.text显示,edit2输入相应第I次的数值,edit2每输入一个数值,combobox1自动i+1,直到对edit1的第i次数值输入完毕
2、在edit1跳出焦点时作个选择,对edit1要输入几次数值现在我对第一个要求是这样做的,不知道对不对,请教大虾,第二个要求如果不用FORM实现,还能用什么函数,messagedlg好象不行,只能做两种选择procedure TForm1.edt3Exit(Sender: TObject);
var
i,point:integer;
begin
  i:=combobox1.Items;
  for point:=0 to i-1 do
  begin
    with ADOQuery1 do
      begin
      close;
      sql.Clear;
      sql.Add('insert into Ttesterrors(tablenum,errors1)');
      sql.Add('values('''+trim(edit1.Text)+''','''+trim(edt1.Text)+''')');
      prepared;
      open;
      end;
  end;
  if point>(i-1) then
  begin
  showmessage('已经输入结束!');
  end;
end;

解决方案 »

  1.   

    请问,combobox1.add();和additems();有什么区别,ADD()可以直接加STRING型
      

  2.   

    请问,combobox1.add();和additems();有什么区别,ADD()可以直接加STRING型
    =====================================
    TComboBox有add吗?是Items.Add吧?区别你看一眼参数不就知道喽至于你提的问题我理解起来有困难,实在没法解答啊!@_@
      

  3.   

    哦,请问,能不能给我个例子,给COMBOBOX1添加I个数值,是从1开始到I的,
    谢谢了,解决完就结贴
      

  4.   

    var
      I: integer;
    begin
      for I:= 1 to 10 do
      begin
        combobox1.Items.Add(inttostr(I));
      end;
    end;