＋设为首页 ＋添加到收藏夹
sle_1是输入生日如0616
以下是单独查如0616的,想查0616至0816
inst_cur_sql = "DataWindow.Table.Select=~""+inst_cur_sql+"~""
dw_2.modify(inst_cur_sql)
tj = dw_2.Retrieve()
//降序查询
dw_2.setsort("ye d")
dw_2.sort()
//----------生日查询
string temp
string pinteger
pinteger=sle_1.text
IF not f_isemp_str (pinteger) THEN //过滤人员生日
IF pinteger= THEN
dw_2.retrieve()
else
temp = "(len(" + " xykidno " + ") = 18 and integer(mid( " + "xykidno" + ",9,4))= " + pinteger + " ) "
temp=temp+"or (len( " + "xykidno" + ")=18 and integer(mid(" + "xykidno" + ",11,4))= " + pinteger + ")"
dw_2.setfilter(temp)
dw_2.filter()
dw_2.SETfilter(1=1)
end if
string ls_begin, ls_end, ls_data
ls_begin = sle_1.text //开始的生日 0616
ls_end = sle_2.text //结束的生日 0816
if len(ls_begin) > 0 then
//
else
return
end if
if len(ls_end) > 0 then
//
else
return
end if
ls_data = "( (len(xykidno) = 15) and "
ls_data += "(mid(xykidno, 9, 4) >= " + ls_begin + ") and "
ls_data += "(mid(xykidno, 9, 4) <= " + ls_end + ") ) OR "
ls_data += "( (len(xykidno) = 18) and "
ls_data += "(mid(xykidno, 11, 4) >= " + ls_begin + ") and "
ls_data += "(mid(xykidno, 11, 4) <= " + ls_end + ") )"
dw_2.setfilter(ls_data)
dw_2.filter()
dw_2.setfilter()
