主题：[求助]求助这段代码 出错的问题~~~

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