可能是因为没有给日期型的字段没有赋值,可以在qryDept.AfterInsert的事件,写下如下代码: with DataSet do begin for iFieldNo := 0 to FieldCount - 1 do if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then Fields[iFieldNo].AsString := '1900-01-01'; end;
可能是因为没有给日期型的字段赋值,可以在qryXXX.AfterInsert的事件中,写如下代码: with DataSet do begin for iFieldNo := 0 to FieldCount - 1 do if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then Fields[iFieldNo].AsString := '1900-01-01'; end;我遇到过这样的情况,后来一步步调试,检查是这样的问题!
begin
for iFieldNo := 0 to FieldCount - 1 do
if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then
Fields[iFieldNo].AsString := '1900-01-01';
end;
begin
for iFieldNo := 0 to FieldCount - 1 do
if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then
Fields[iFieldNo].AsString := '1900-01-01';
end;我遇到过这样的情况,后来一步步调试,检查是这样的问题!