知道的来帮个忙,谢谢

lichy163 2007-05-10 03:22:41
form2.show;
form4.adoquery1.Close;
form4.adoquery1.sql.clear;
form4.adoquery1.SQL.add(format('select * from patient where ccid= ''%s''',[form3.pct]));
form4.adoquery1.open;
{form4.adoquery1.First;
repeat
form2.Edit1.Text:=form4.adoquery1.fieldbyname('id').asstring;
form2.Edit2.Text:=form4.adoquery1.fieldbyname('name').asstring;
form2.Edit27.Text:=form4.adoquery1.fieldbyname('id').asstring;
form2.Edit28.Text:=form4.adoquery1.fieldbyname('name').asstring;
form4.adoquery1.Next;
until form4.adoquery1.eof;
adoquery1.Close; }

form4中的edit没有文本
没办法只有换成
form2.Edit1.Text:=trim(form4.edit1.text);
form2.Edit2.Text:=trim(form4.edit2.text);
form2.Edit27.Text:=trim(form4.edit1.text);
form2.Edit28.Text:=trim(form4.edit2.text);
但是我还是想用第一种方法去实现,高手帮忙看看注释的那段代码那里有问题,谢谢了
也可以直接告诉我,我的qq190238861
...全文
101 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
do2008 2007-05-10
  • 打赏
  • 举报
回复
注释的那段代码没有起作用,可能是没有数据,

单步跟踪看看是怎么回事吧,

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧