edit1.text:=query1.fieldbyname('dclmdte').AsString

if not query1.fieldbyname('dclmdte').Isnull then
  edit1.text:=datetimetostr(query1.fieldbyname('dclmdte').asdatetime);

解决方案 »

  1.   

    同意 dtqyhq(鸿浪) 
      

  2.   

    dtqyhq(鸿浪) 
    asstring不行,NULL值必须取出
      

  3.   

    自己判断处理一下,
    不为Null的时候直接取出,其他(else)的再作处理。
      

  4.   

    softwing(向前看) 老大,连取数都取不出来,怎么其他处理?
      

  5.   

    可能是因为有空值的问题.这样:
    try
    edit1.text:=datetimetostr(query1.fieldbyname('dclmdte').asdatetime);
    begin
    abort;
    end;
    end;
    ======Try======
      

  6.   

    edit1.text:=query1.fieldbyname('dclmdte').AsString
    应该可以,
      

  7.   

    if not VarIsNull(query1.fieldbyname('dclmdte').Value)
     then Edit1.Text := query1.fieldbyname('dclmdte').asString
    else Edit1.Text := '';