代码如下:
Sql := '';
Sql := 'insert into TEACHERS(T_ID, WorkID,Train_ID,Teacher,CheckPerson,TrainMission,WorkDate,CancelDate) '
+' values('+T_ID+','+WorkID+','+Train_ID+','+Teacher+',''%s'',''%s'','+datetostr(WorkDate)+','+datetostr(CancelDate)+')';
sql := Format(Sql, [PersonLst.Strings, TrainLst.Strings[j]]);
showmessage(sql);
Tsqldataset(DsTeacher.DataSet).SQLFilter:=sql;
if not Tsqldataset(DsTeacher.DataSet).SqlFiltered then
Tsqldataset(DsTeacher.DataSet).SQLFiltered:= True;
执行到Tsqldataset(DsTeacher.DataSet).SQLFiltered:= True;时报错
请看图
|