首页 新闻 搜索 专区 学院

vb 中的monthview.value问题

0
悬赏园豆:10 [已关闭问题] 关闭于 2013-12-13 13:17

Dim i As Integer
  Dim m As String
  m = Format(MonthView1.Value, "yyyy/mm/dd")
  Dim objRecordset As ADODB.Recordset
  strSQL = "select * from kaoqing where 职工号= '" & Trim(txtFields(2).Text) & "' and 日期='" & m & "'"
  Set objRecordset = ExecuteSQL(strSQL)
  If objRecordset.EOF = True Then
  MsgBox " 没有该员工这个时间的考勤!", vbExclamation + vbOKOnly, "警告"
  Exit Sub
  Else
  For i = 0 To 16
                If IsNull(objRecordset.Fields(i)) Then
                 
                txtFields(i).Text = ""
                Else
 
               
                   Me.txtFields(i).Text = objRecordset.Fields(i)
            End If
                Next
  End If

 

这段代码哪里错,报错的原因说是数据类型不匹配。求解,谢谢

vb
梁开水的主页 梁开水 | 初学一级 | 园豆:13
提问于:2013-10-25 14:16
< >
分享
所有回答(2)
0

Format(MonthView1.Value, "yyyy/mm/dd") 的第一个参数是不是接收 整型的呢

Yu | 园豆:12944 (专家六级) | 2013-10-25 14:45

这个不是获取Monthview控件当前的时间吗

支持(0) 反对(0) 梁开水 | 园豆:13 (初学一级) | 2013-10-25 14:52

@梁开水: 你把 Format 这个方法的代码放上来看看

支持(0) 反对(0) Yu | 园豆:12944 (专家六级) | 2013-10-25 14:54

@Yu: Format 只是格式化日期而已

支持(0) 反对(0) 梁开水 | 园豆:13 (初学一级) | 2013-10-25 15:40
0

把日期='" & m & "'改为日期=#" & m & "#就可以了

梁开水 | 园豆:13 (初学一级) | 2013-10-25 15:04
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册