edit1.text:=query1.fieldbyname('dclmdte').AsString
或
if not query1.fieldbyname('dclmdte').Isnull then
edit1.text:=datetimetostr(query1.fieldbyname('dclmdte').asdatetime);
或
if not query1.fieldbyname('dclmdte').Isnull then
edit1.text:=datetimetostr(query1.fieldbyname('dclmdte').asdatetime);
asstring不行,NULL值必须取出
不为Null的时候直接取出,其他(else)的再作处理。
try
edit1.text:=datetimetostr(query1.fieldbyname('dclmdte').asdatetime);
begin
abort;
end;
end;
======Try======
应该可以,
then Edit1.Text := query1.fieldbyname('dclmdte').asString
else Edit1.Text := '';