数据过滤器SAS VBA

Question

data.Filter = "(Dec = 'Okay' AND no = '001' AND date >=" &
Sheets("parameter").range("A1") & ")" & _"or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >=" & Sheets("parameter").range("A1") & ")"

为什么它会显示运行时错误？我相信问题是从包含“标准”的过滤器开始的。我怎样才能把事情做好？

注意:添加额外行的不再允许，因为最大行数为24，而且我已经超过了它。

Answer 1

这可能是因为您从Sheets("parameter").range("A1")传入的日期值。

例如，假设您从A1 of 20JAN2015传入一个值，您可以尝试如下所示的内容：

data.Filter = "(Dec = 'Okay' AND no = '001' AND date >='" &
Sheets("parameter").range("A1") & "'d)" & "or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >='" & Sheets("parameter").range("A1") & "'d)"

这将使：

(Dec = 'Okay' AND no = '001' AND date >='20JAN2015'd) or (Dec = 'Okay' AND 
(criteria = 'TOM1' OR criteria = 'TOM2' OR criteria = 'TOM3') AND 
date >='20JAN2015'd)

将其与以下方面进行比较：

data _null_ ;
  datetxt='20JAN2015' ;
  datenum='20JAN2015'd ;
  put "Date as text " datetxt= ;
  put "Date as SAS date " datenum= ;
run ;