回 帖 发 新 帖 刷新版面

主题:帮忙看看为什么出错

var
 a,b,c,d,e,f,g,h,i:string;
begin
if RadioButton1.Checked then
begin
  with main.adoquery1 do
   begin
       main.adoquery1.Close;
       main.adoquery1.SQL.Clear ;
       main.adoquery1.sql.add('select * from hy_table');
       open;
   Datasource1.DataSet:=main.ADOQuery1;
   a:=main.ADOQuery1.Parameters.ParamByName('化验单编号').Value;
   b:=main.ADOQuery1.Parameters.ParamByName('化验项目').Value;
   c:=main.ADOQuery1.Parameters.ParamByName('化验医生').Value;
   d:=main.ADOQuery1.Parameters.ParamByName('姓名').Value;
   e:=main.ADOQuery1.Parameters.ParamByName('性别').Value;
   f:=main.ADOQuery1.Parameters.ParamByName('手机号码').Value;
   g:=datetimetostr(main.ADOQuery1.Parameters.ParamByName('时间').Value);
   h:=main.ADOQuery1.Parameters.ParamByName('结果').Value;
   i:=main.ADOQuery1.Parameters.ParamByName('医生建议').Value;
   其中 '化验单编号'等都是表hy_table中的列名
   运行时 说'化验单编号'找不到 为什么啊

回复列表 (共1个回复)

沙发

a:=main.ADOQuery1.fieldbyname('化验单编号').AsString;

我来回复

您尚未登录,请登录后再回复。点此登录或注册