Dim flt As String = "1=1"
If e.Form.Controls("RadioButton_合同签订_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%合同已签订%'"
Else If e.Form.Controls("RadioButton_合同签订_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%合同已签订%' or [执行过程] is Null)"
End If
If e.Form.Controls("RadioButton_货款申请_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%货款已申请%'"
Else If e.Form.Controls("RadioButton_货款申请_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%货款已申请%' or [执行过程] is Null)"
End If
If e.Form.Controls("RadioButton_货款支付_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%货款已支付%'"
Else If e.Form.Controls("RadioButton_货款支付_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%货款已支付%' or [执行过程] is Null)"
End If
If e.Form.Controls("RadioButton_货物入库_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%货物已入库%'"
Else If e.Form.Controls("RadioButton_货物入库_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%货物已入库%' or [执行过程] is Null)"
End If
If e.Form.Controls("RadioButton_质保收到_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%质保已收到%'"
Else If e.Form.Controls("RadioButton_质保收到_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%质保已收到%' or [执行过程] is Null)"
End If
If e.Form.Controls("RadioButton_fa piao收到_YES").Checked = True Then
flt = flt & " And [执行过程] Like '%fa piao已收到%'"
Else If e.Form.Controls("RadioButton_fa piao收到_NO").Checked = True Then
flt = flt & " And ([执行过程] Not Like '%fa piao已收到%' or [执行过程] is Null)"
End If
Tables("采购合同执行过程查询_Table_采购合同").Fill("Sel ect 合同号,签订日期,供应商,原产牌号,厚度,宽度,重量,单价,金额,付款方式,交货日期,提货方式,执行纪要 From {原料采购合同} Where" & flt,"ShcsErpSql",True)
加好友 
发短信
Post By：2015/7/7 12:38:00 [只看该作者]
此主题相关图片如下：qq截图20150707123629.jpg
