If For ms("数据查询").Opened=True Then
For ms("数据查询").Close()
End If
If For ms("风险部报表").Opened=False Then
For ms("风险部报表").Open()
End If
Dim riqi As WinForm.ComboBox = e.For m.Controls("ComboBox1")
Tables("fxbbb").Fill("Select a.客户名称,a.贷款品种,a.合同流水号,起息日期,到期日期,贷款余额,五级分类状态,国标行业第一级分类,企业性质,企业规模,担保方式,权限类别,concat(c.产品类型,d.产品类型,e.产品类型)As 产品类型,产品分类,(Case when 风险类别='一般风险' then (贷款余额-可缓释的保证金-可缓释的存单价值-可缓释的理财产品价值-可缓释的银行承兑汇piao价值) else 0 end) as 敞口余额 fro m {授信台账} a left join (select * fro m {银承产品类型} where 日期='%" & riqi.Value & "%') as c on a.合同流水号=c.合同流水号 left join (select * fro m {贴现产品类型} where 日期='%" & riqi.Value & "%') as d on a.合同流水号=d.合同流水号 left join (select * fro m {对公表内产品类型} where 日期='%" & riqi.Value & "%') as e on a.合同流水号=e.合同流水号 left outer join (select * fro m {授信权限类别表} where 日期='%" & riqi.Value & "%')as b on a.合同流水号=b.合同流水号 where a.日期 = '%" & riqi.Value & "%'")
我在使用fill时报了没有可访问的fill接受此数目的参数的错误，是因为我这里sql中动态载入日期出错了吗，还是因为我在另一个form中创建了专门用于显示窗口表的窗口的原因？谢谢
加好友 
发短信
Post By：2019/8/22 9:03:00 [显示全部帖子]
