Private Sub Form_Load()中这样写的DataC1
DataC1.DatabaseName = App.Path + "\RS.mdb"
DataC1.RecordSource = "select * from YLBX"
数据库是Access
报销时间只有日期/时间类型
报销时间我想用2006-5-*这中搜索
YLBX表是这样设计的 员工号 数字
医疗报销费用 数字
保险费 数字
报销时间 日期/时间
假如要算2006-5-5和2006-5-1两天的医疗报销费用 用下面的代码 其中Text1(0).Text=56 报销时间 Like 2006-5-*mysqls = "select Sum(医疗报销费用) from YLBX where 员工号='" & Text1(0).Text & "' and 报销时间 like '" & Text1(1).Text & "'"
DataC1.RecordSource = mysqls
DataC1.Refresh
Text1(5).Text = DataC1.Recordset.Fields(0)可是总说标准表达式中类型不匹配 Text1(5).设置为 Text1(5).DataSource=DataC1
该怎么改啊 谢谢了啊
DataC1.DatabaseName = App.Path + "\RS.mdb"
DataC1.RecordSource = "select * from YLBX"
数据库是Access
报销时间只有日期/时间类型
报销时间我想用2006-5-*这中搜索
YLBX表是这样设计的 员工号 数字
医疗报销费用 数字
保险费 数字
报销时间 日期/时间
假如要算2006-5-5和2006-5-1两天的医疗报销费用 用下面的代码 其中Text1(0).Text=56 报销时间 Like 2006-5-*mysqls = "select Sum(医疗报销费用) from YLBX where 员工号='" & Text1(0).Text & "' and 报销时间 like '" & Text1(1).Text & "'"
DataC1.RecordSource = mysqls
DataC1.Refresh
Text1(5).Text = DataC1.Recordset.Fields(0)可是总说标准表达式中类型不匹配 Text1(5).设置为 Text1(5).DataSource=DataC1
该怎么改啊 谢谢了啊
解决方案 »
- VB 窗口和控件类名是否自动销毁?
- 请问各位大侠 用VB做语音识别 怎么样提高语音识别率?
- VB6压缩解压缩字符串:找到了一个压缩解压字符串的类模块,但有些问题,请大家看看?
- 在DataReport中RptTextBox和RptLine都调整好,一样高!运行后 RptTextBox内容过长它回行显示,RptLine高度就和RptTextBox不一样高了。怎
- 请大家试用CSDN的收藏功能,并发表你们的意见
- Active Report 2换行问题
- 请教如何在文件打开窗口(CommonDialog)旁边开一个图形浏览窗口?
- 一张脸戴帽子的动画怎么编?
- 寻 打印/报表 的程序例子
- 救救我啊
- VB编译的DLL能否用Rundll32.exe来启动?
- 紧急问题,来者有分!(VB)
mysqls = "select Sum(医疗报销费用) from YLBX where 员工号 = " & Text1(0).Text & " and 报销时间 like " & Text1(1).Text
假如要查2006-4-*或2006-2-*等等 在Text1(1).Text就输入的是2006-5-*或2006-4-*等日期