if !empty(thisformset.locate.mz.value)
if !empty(tr)
tr=tr+ ' and alltrim(mz) = alltrim(thisformset.locate.mz.value) '
else
tr= ' alltrim(mz) = alltrim(thisformset.locate.mz.value) '
endi
endi
if !empty(thisformset.locate.dp.value)
if !empty(tr)
tr=tr+ ' and alltrim(dp) = alltrim(thisformset.locate.dp.value) '
else
tr= ' alltrim(dp) = alltrim(thisformset.locate.dp.value) '
endi
endi
if !empty(thisformset.locate.zc.value)
if !empty(tr)
tr=tr+ ' and alltrim(zc) = alltrim(thisformset.locate.zc.value) '
else
tr = ' alltrim(zc) = alltrim(thisformset.locate.zc.value) '
endi
endi
if !empty(thisformset.locate.grdm.value)
if !empty(tr)
tr=tr+ ' and dm = val(thisformset.locate.grdm.value) '
else
tr= ' dm = val(thisformset.locate.grdm.value) '
endi
endi
if !empty(thisformset.locate.qtgz.value)
if !empty(tr)
tr=tr+ ' and qtgz = vaL(thisformset.locate.qtgz.value) '
else
tr= ' qtgz = val(thisformset.locate.qtgz.value) '
endi
endi
if !empty(thisformset.locate.zw.value)
if !empty(tr)
tr=tr+ ' and alltrim(zw) = alltrim(thisformset.locate.zw.value) '
else
tr= ' alltrim(zw) = alltrim(thisformset.locate.zw.value) '
endi
endi
if !empty(thisformset.locate.djgz.value)
if !empty(tr)
tr=tr+ ' and djgz = val(thisformset.locate.djgz.value) '
else
tr= ' djgz = val(thisformset.locate.djgz.value) '
endi
endi
if !empty(thisformset.locate.jngz.value)
if !empty(tr)
tr=tr+ ' and jngz = val(thisformset.locate.jngz.value) '
else
tr= ' jngz = val(thisformset.locate.jngz.value) '
endi
endi
if !empty(thisformset.locate.gkdw.value)
if !empty(tr)
tr=tr+ ' and alltrim(gk) = alltrim(thisformset.locate.gkdw.value) '
else
tr= ' alltrim(gk) = alltrim(thisformset.locate.gkdw.value) '
endi
endi
if !empty(thisformset.locate.jndj.value)
if !empty(tr)
tr=tr+ ' and jndj = thisformset.locate.jndj.value '
else
tr= ' jndj = thisformset.locate.jndj.value '
endi
endi
if !empty(thisformset.locate.mlbt.value)
if !empty(tr)
tr=tr+ ' and mlbt = val(thisformset.locate.mlbt.value) '
else
tr= ' mlbt = val(thisformset.locate.mlbt.value) '
endi
endi
if !empty(thisformset.locate.gwgz.value)
if !empty(tr)
tr=tr+ ' and gwgz = val(thisformset.locate.gwgz.value) '
else
tr= ' gwgz = val(thisformset.locate.gwgz.value) '
endi
endi
if !empty(thisformset.locate.dwdm.value)
if !empty(tr)
tr=tr+ ' and bm = thisformset.locate.dwdm.value '
else
tr= ' bm = thisformset.locate.dwdm.value '
endi
endi
if !empty(thisformset.locate.djgw.value)
if !empty(tr)
tr=tr+ ' and djgw = thisformset.locate.djgw.value '
else
tr= ' djgw = thisformset.locate.djgw.value '
endi
endi
if !empty(thisformset.locate.ylbx.value)
if !empty(tr)
tr=tr+ ' and jbbx = val(thisformset.locate.ylbx.value) '
else
tr= ' jbbx = val(thisformset.locate.ylbx.value) '
endi
endi
if !empty(thisformset.locate.ryly.value)
if !empty(tr)
tr=tr+ ' and alltrim(ryly) = alltrim(thisformset.locate.ryly.value) '
else
tr= ' alltrim(ryly) = alltrim(thisformset.locate.ryly.value) '
endi
endi
if !empty(thisformset.locate.zhbt.value)
if !empty(tr)
tr=tr+ ' and zhbt = thisformset.locate.zhbt.value '
else
tr= ' zhbt = thisformset.locate.zhbt.value '
endi
endi
if !empty(thisformset.locate.jsbt.value)
if !empty(tr)
tr=tr+ ' and jsbt = val(thisformset.locate.jsbt.value) '
else
tr= ' jsbt = val(thisformset.locate.jsbt.value) '
endi
endi
if !empty(thisformset.locate.jljt.value)
if !empty(tr)
tr=tr+ ' and jljt = val(thisformset.locate.jljt.value) '
else
tr= ' jljt = val(thisformset.locate.jljt.value) '
endi
endi
if !empty(thisformset.locate.jnlb.value)
if !empty(tr)
tr=tr+ ' and alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) '
else
tr= ' alltrim(jnlb) = alltrim(thisformset.locate.jnlb.value) '
endi
endi
if !empty(thisformset.locate.gwlb.value)
if !empty(tr)
tr=tr+ ' and alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) '
else
tr= ' alltrim(gwlb) = alltrim(thisformset.locate.gwlb.value) '
endi
endi
if !empty(thisformset.locate.cxbx.value)
if !empty(tr)
tr=tr+ ' and gbbx = vaL(thisformset.locate.cxbx.value) '
else
tr= ' gbbx = val(thisformset.locate.cxbx.value) '
endi
endi
if !empty(thisformset.locate.gzyy.value)
if !empty(tr)
tr=tr+ ' and alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) '
else
tr= ' alltrim(gzyy) = alltrim(thisformset.locate.gzyy.value) '
endi
endi
if !empty(thisformset.locate.COMBO1.value)
if !empty(thisformset.locate.TEXT1.value)
if !empty(tr)
IF thisformset.locate.COMBO1.value = '>='
tr=tr+ ' and cssj >= thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '>'
tr=tr+ ' and cssj > thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '='
tr=tr+ ' and cssj = thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '<='
tr=tr+ ' and cssj <= thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '<'
tr=tr+ ' and cssj < thisformset.locate.TEXT1.value '
ENDI
else
IF thisformset.locate.COMBO1.value = '>='
tr= ' cssj >= thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '>'
tr= 'cssj > thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '='
tr= ' cssj = thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '<='
tr= ' cssj <= thisformset.locate.TEXT1.value '
ENDI
IF thisformset.locate.COMBO1.value = '<'
tr=' cssj < thisformset.locate.TEXT1.value '
ENDI
endi
endi
ENDI
if !empty(thisformset.locate.COMBO2.value)
if !empty(thisformset.locate.TEXT2.value)
if !empty(tr)
IF thisformset.locate.combo2.value = '>='
tr=tr+ ' and rjsj >= thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '>'
tr=tr+ ' and rjsj > thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '='
tr=tr+ ' and rjsj = thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '<='
tr=tr+ ' and rjsj <= thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '<'
tr=tr+ ' and rjsj < thisformset.locate.text2.value '
ENDI
else
IF thisformset.locate.combo2.value = '>='
tr= ' rjsj >= thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '>'
tr= 'rjsj > thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '='
tr= ' rjsj = thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '<='
tr= ' rjsj <= thisformset.locate.text2.value '
ENDI
IF thisformset.locate.combo2.value = '<'
tr=' rjsj < thisformset.locate.text2.value '
ENDI
endi
endi
ENDI
if !empty(thisformset.locate.combo3.value)
if !empty(thisformset.locate.text3.value)
if !empty(tr)
IF thisformset.locate.combo3.value = '>='
tr=tr+ ' and gzsj >= thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '>'
tr=tr+ ' and gzsj > thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '='
tr=tr+ ' and gzsj = thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '<='
tr=tr+ ' and gzsj <= thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '<'
tr=tr+ ' and gzsj < thisformset.locate.text3.value '
ENDI
else
IF thisformset.locate.combo3.value = '>='
tr= ' gzsj >= thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '>'
tr= 'gzsj > thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '='
tr= ' gzsj = thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '<='
tr= ' gzsj <= thisformset.locate.text3.value '
ENDI
IF thisformset.locate.combo3.value = '<'
tr=' gzsj < thisformset.locate.text3.value '
ENDI
endi
endi
ENDI
sele gzbx
set filt to &tr
go top
count to thisformset.xs.text1.value
sum gwgz ,jngz,djgz,qtgz to g1,g2,g3,g4
thisformset.xs.text2.value =g1
thisformset.xs.text3.value =g2
thisformset.xs.text4.value =g3
thisformset.xs.text5.value=g4
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>