说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请大家看看,代码有错吗?无错位何edit2.text中开不到查找的数据!

编辑:说三道四文库 发布时间:2018-02-23 10:54
HTML文档下载 WORD文档下载 PDF文档下载
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
    Locate('aab01',l_aab01,[loPartialKey]);
    //if not Locate('aab01',l_aab01,[loPartialKey]) then
    //edit2.Text := 'error';
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
    end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
   if not Locate('aab01',l_aab01,[]) then
   begin
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
   end;
    end;
end; 
试试这样如何。
来晚一步!为什么要屏蔽
    //if not Locate('aab01',l_aab01,[loPartialKey]) then
    //edit2.Text := 'error';
呢,
去掉屏蔽就行
可是在edit.text中显示的数据并不是我要查找的数据?
这是为何?我以想了两天了,呜呜呜呜呜呜呜呜呜!
可是在edit.text中显示的数据并不是我要查找的数据?
这是为何?我以想了两天了,呜呜呜呜呜呜呜呜呜!
Locate('aab01',varArrayOf([l_aab01]),[loPartialKey]);
如何?
你检查一下是不是大小写不匹配的事!
procedure TForm2.Button1Click(Sender: TObject);
var l_aab01: string;
begin
  with AdoTable1 do
    begin
    l_aab01 := Edit1.text;
  if Locate('aab01',l_aab01,[loCaseInsensitive, loPartialKey]) then
  begin
    edit2.Text := fieldbyname('aab01').value;
    edit3.Text := fieldbyname('aab02').value;
    edit4.Text := fieldbyname('aab04').value;
    edit5.Text := fieldbyname('aab05').value;
  end
  else edit2.Text := 'error';    
end;
end; 
同意wanwangzhiwang(万王之王) 的说法
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘