这个代码怎么写？提示错误 - 专家坐堂 - 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

此主题相关图片如下：112.jpg

考勤月份 = '" & Vals(i)(2) & "'")

这个代码，怎么写好呢？

此主题相关图片如下：333.jpg

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