cmd.Comm andText="Select count(*) fro m {预算录入明细库} where 下达年度 ='" & year & "'and 资金来源= '" & zjly & "' And 预算资金性质='" & yszjxz & "' And 预算下达部门='" & ysxdbm & "' and 预算实施部门='" & ysssbm & "' and 一级科目='" & kmmc & "'"
If cmd.Ex ecut eSc alar>0 Then
cmd1.Comm andText="select * fr om {预算录入明细库} where 下达年度 ='" & year & "'and 资金来源= '" & zjly & "' and 预算资金性质='" & yszjxz & "' and 预算下达部门='" & ysxdbm & "' and 预算实施部门 ='" & ysssbm & "' and 一级科目='" & kmmc & "'"
Else