DataModule4.ADODataSetCourse.First;
DataModule4.ADODataSetCourse.CanModify;
for l:=1 to DataModule4.ADODataSetCourse.RecordCount do
begin
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='1' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='单周';
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='2' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='双周';
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='1' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='单双周';
DataModule4.ADODataSetCourse.Next;
end;
为什么提示"adpdataset没有处于edit或insert的状态"呢?,请问如何解决
谢谢
DataModule4.ADODataSetCourse.CanModify;
for l:=1 to DataModule4.ADODataSetCourse.RecordCount do
begin
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='1' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='单周';
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='2' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='双周';
if DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString='1' then
DataModule4.ADODataSetCourse.Fields.FindField('expOdd').AsString:='单双周';
DataModule4.ADODataSetCourse.Next;
end;
为什么提示"adpdataset没有处于edit或insert的状态"呢?,请问如何解决
谢谢
adpdataset.edit
DataModule4.ADODataSetCourse.edit
else
exit;
...
adpdataset.post;