北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
sql在查询里面没有问题，为什么在vb代码里就出现类型不匹配呢。连输出sql字符串都报错
Debug.Print "SELECT cstr(mid(CStr([检验日期]),1,len(CStr([检验日期]))-(len(CStr([检验日期]))-inStrRev(CStr([检验日期])," / "))-1)) as 月份, count(物料首检是否合格) AS 批次数, count(IIf([物料首检是否合格]= " & Chr(34) & "合格" & Chr(34) & ",1,0)) AS 合格次数,合格次数/批次数 as 合格率 " _
& " FROM dbo_IQC详细记录 " _& " group by mid(CStr([检验日期]),1,len(CStr([检验日期]))-(len(CStr([检验日期]))-inStrRev(CStr([检验日期])," / "))-1)"
源代码：
Me.IQC统计数据报表窗体.Form.检验日期及时间_Label.Caption = "月份"
Me.IQC统计数据报表窗体.Form.物料首检是否合格_Label.Caption = "批次数"
Me.IQC统计数据报表窗体.Form.合格数_Label5.Caption = "批次合格数"
Me.IQC统计数据报表窗体.Form.合格率_Label7.Caption = "合格率"
Debug.Print "SELECT cstr(mid(CStr([检验日期]),1,len(CStr([检验日期]))-(len(CStr([检验日期]))-inStrRev(CStr([检验日期])," / "))-1)) as 月份, count(物料首检是否合格) AS 批次数, count(IIf([物料首检是否合格]= " & Chr(34) & "合格" & Chr(34) & ",1,0)) AS 合格次数,合格次数/批次数 as 合格率 " _
& " FROM dbo_IQC详细记录 " _
& " WHERE 检验日期 between #" & Me.开始日期 & "# and #" & Me.结束日期 & "#" _
& " group by mid(CStr([检验日期]),1,len(CStr([检验日期]))-(len(CStr([检验日期]))-inStrRev(CStr([检验日期])," / "))-1)"
Me.IQC统计数据报表窗体.Form.RecordSource = "SELECT mid(CStr([检验日期]),1,len(CStr([检验日期]))-(len(CStr([检验日期]))-inStrRev(CStr([检验日期])," / "))-1) as 月份, count(物料首检是否合格) AS 批次数, count(IIf([物料首检是否合格]= " & Chr(34) & "合格" & Chr(34) & ",1,0)) AS 合格次数,合格次数/批次数 as 合格率 " _
& " FROM dbo_IQC详细记录 " _
& " WHERE 检验日期 between #2019/1/1# and #2020/1/9# " _
& " group by mid(CStr(检验日期),1,len(检验日期)-(len(检验日期)-inStrRev(检验日期," / "))-1)"
Me.IQC统计数据报表窗体.Form.检验日期及时间.ControlSource = "月份"
Me.IQC统计数据报表窗体.Form.物料首检是否合格.ControlSource = "批次数"
Me.IQC统计数据报表窗体.Form.合格数.ControlSource = "合格次数"
Me.IQC统计数据报表窗体.Form.合格率.ControlSource = "合格率"
Me.IQC统计数据报表窗体.Form.其它.ColumnHidden = True
