If bPAccess Then
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where rtrim(ltrim(appr_status))='P' order by ref_no" Else
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where left(batch_no, " & i & ")='" & strPUser & "' and rtrim(ltrim(appr_status)) <> 'A' order by ref_no ,item_no " End If
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
Set DBGrid1.DataSource = rs
运行时提示 Set DBGrid1.DataSource = rs 出现标题错误!
了解的棒棒忙谢谢!!!
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where rtrim(ltrim(appr_status))='P' order by ref_no" Else
strSQL = "select appr_status,BATCH_NO,REF_NO,ITEM_NO,ITEM_DESCE,oms_itemno,ITEM_GRP,MODEL_NO,CUST_PN, REV, " & _
"MANU_NAME,MANU_PN,PROCUR,SPEC_PROCU,UOM,NET_W,NET_UNIT,CUST_CODE,Safe_Mat,mold_code, " & _
"material_type,factory_code,item1,item2,item3,item4,item5,item6,item7,item8 ,i_date,by_user,export_fg, conrohs = case itemmstr.rohs when 1 then 'ROHSR0' when 2 then 'ROHSR1' when 3 then 'ROHSR2' when 4 then 'ROHSRE' else '' end,suggest_itemno,batchmgt from itemmstr where left(batch_no, " & i & ")='" & strPUser & "' and rtrim(ltrim(appr_status)) <> 'A' order by ref_no ,item_no " End If
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
Set DBGrid1.DataSource = rs
运行时提示 Set DBGrid1.DataSource = rs 出现标题错误!
了解的棒棒忙谢谢!!!
解决方案 »
- vbs脚本对XML的操作封装成一个公用的文件,在要用的vbs调用该脚本文件
- 怎么把stdPicture类型直接转成2维RGBQUAD结构体?
- 有关调用function问题
- 如何实现对键盘输入的拦截?
- 真不知道用vb如何解压ZIP文件,折腾一晚还搞不定?有哪位大虾帮忙指点指点?
- vb中执行命令行,命令立即退出的问题,在线灯
- COM 自动化服务的问题
- 如果将一个窗口中的MSFLEXGRID中的内容完全快速的赋给别一个窗口中的MSFLEXGRID。
- 用MAIP发送e-mail的问题,请高手给于解答!!!!!!!
- VB 保存图片到Oracle数据库,需使用Insert into语名
- 怎样获取鼠标点击的坐标?
- VB如何释放大内存
DBGrid 不支持 ADO,换 DataGrid 就好。或者换用 DAO 的 recordset.