这个代码怎么写？提示错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Vals As List(of String())
Vals = DataTables("考勤").GetValues("合同编号|员工编号|考勤月份","审核 is null")
For i As Integer = 0 To Vals.Count - 1
    Dim tr As DataRow = DataTables("工资发放").Find("合同编号 = '" & Vals(i)(0) & "' And 员工编号 = '" & Vals(i)(1) & "' And 考勤月份 = #" & Vals(i)(2) & "#")
    If tr Is Nothing Then
        Dim dr As DataRow = DataTables("工资发放").AddNew()
        dr("合同编号") = Vals(i)(0)
        dr("员工编号") = Vals(i)(1)
        dr("考勤月份") = Vals(i)(2)
    End If
Next

主题：这个代码怎么写？提示错误。