vb6:Data1.RecordSource = "select * from 库存表 where 拼音简码 like 'x*'"
Data1.Refresh明明查出数据 可水晶报表咋显示不出来呢?不支持模糊查询?(不用like用=号的话水晶报表可以显示)
哪位朋友来帮试一下
Data1.Refresh明明查出数据 可水晶报表咋显示不出来呢?不支持模糊查询?(不用like用=号的话水晶报表可以显示)
哪位朋友来帮试一下
解决方案 »
- SKINSE界面库,内置DirectUI思想。支持VB6.0
- 如何使窗体右上角的X按钮失效?
- 请各位大侠帮帮忙,写一个在考勤时间数组上插入一段加班时间的算法。
- Access一加密码就连接不上,怎么回事?
- 微软的money是怎么做的?
- 各位大虾请看
- 急!有关VB中的控件单位
- 请问如何对一个EXCEL作出分类汇总的效果?
- 各位高手,帮忙看看程序怎么不能完全释放内存,谢谢了!!
- !!SOS!!小弟对QBASIC很菜,有几道QBASIC题目不会做.有那位大侠可以帮小弟一把!!
- 请教高手一关于串口通讯问题。(工控方面的通讯问题)
- 改变系统(自己程序中)的按钮、窗体、滚动条、菜单等的样式该用什么(子分类)?
strSql = Replace(Replace(Data1.RecordSource, "*", "%"), "select %", "select *") '把Data1.RecordSource里的*换为%
strsql1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";Persist Security Info=False"
Con.Open strsql1
Rst.Open strSql, Con, adOpenStatic, adLockReadOnly, adCmdText
DoEvents
If OpenRep <> repYPJH1 Then
Set crRpt = crApp.OpenReport(repYPJH1)
OpenRep = repYPJH1
End If
DoEvents
crRpt.DiscardSavedData
crRpt.Database.SetDataSource Rst, 3, 1
crRpt.EnableParameterPrompting = FalsefrmPRINT.CRV.ReportSource = crRpt
frmPRINT.CRV.Refresh
frmPRINT.CRV.ViewReport
frmPRINT.Show我是这样写的,请问有无更好的写法呢