专家坐堂-[求助]求助这段代码出错的问题~~~Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求助这段代码出错的问题~~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20336)

--  作者：gaoyong30000
--  发布时间：2012/6/5 14:19:00
--  [求助]求助这段代码出错的问题~~~

If PD.contains(1) = True And Tables("考勤管理_考勤管理Table2").rows.count > 0 Then
    Dim t As Table = Tables("考勤管理_考勤管理Table1")
    Dim c As Col = t.Cols(t.ColSel)

    Dim dr As DataRow
    dr = DataTables("考勤管理_考勤管理Table2").Find("姓名 = \'" & Tables("考勤管理_考勤管理Table1").current("人员") & "\' And 日期 = \'" & forms("ERP界面").controls("考勤管理combobox1").value & "-" & Functions.Execute("数值转换2",forms("ERP界面").controls("考勤管理combobox2").value) & Functions.Execute("数值转换4",c.name) & "\'")
    If dr IsNot Nothing Then
        Dim wz As Integer = Tables("考勤管理_考勤管理Table2").FindRow(dr)
        If wz >= 0 Then
            Tables("考勤管理_考勤管理Table2").Position = wz
        End If
    End If
End If

什么情况？难道是日期 = \'" 。。。的原因如果是的话如何解决？ convert转换？？

--  作者：狐狸爸爸
--  发布时间：2012/6/5 15:16:00
--
表达式的日期用#括起来。