|
JLR报无效的标识符麻烦看一下
var
lYear : string;
lMonth : string;
lBZ : string;
lJLR : string;
lBeginTM : TDatetime;
lEndTm : TDatetime;
lCondition : string;
begin
lYear := DataSetRunManagementList.FieldByName('Year').AsString;
lMonth := DataSetRunManagementList.FieldByName('Month').AsString;
lBZ := DataSetRunManagementList.FieldByName('BZ').AsString;
lJLR := DataSetRunManagementList.FieldByName('JLR').AsString;
lBeginTM := DataSetRunManagementList.FieldByName('BeginTM').AsDateTime;
lEndTm := DataSetRunManagementList.FieldByName('EndTm').AsDateTime;
lCondition := '1=1';
if lYear <> '' then
lCondition := lCondition + ' and Year = '''+ lYear + '''';
if lMonth <> '' then
lCondition := lCondition + ' and Month = '''+ lMonth + '''';
if lBZ <> '' then
lCondition := lCondition + ' and BZ = '''+ lBZ + '''';
if lJLR <> '' then
lCondition := lCondition + ' and JLR = '''+ lJLR + '''';
if (lBeginTM > 0) and (lEndTm >0) then
lCondition := lCondition + ' and To_Char(RTime,''yyyymmdd'') >= '+SysUtils.FormatDateTime('yyyymmdd',lBeginTM)+ ' and To_Char(RTime,''yyyymmdd'') <= '+SysUtils.FormatDateTime('yyyymmdd',lEndTm);
DataSetMainTable.Close;
DataSetMainTable.SqlFilter := lCondition;
DataSetMainTable.SqlFiltered := True;
DataSetMainTable.OPen; |
|