以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码怎么写？提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75297)
--  作者：yancheng
--  发布时间：2015/10/4 10:28:00
--  这个代码怎么写？提示错误
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
图片点击可在新窗口打开查看此主题相关图片如下：112.jpg
图片点击可在新窗口打开查看

 考勤月份 = \'" & Vals(i)(2) & "\'")  
这个代码，怎么写好呢？



图片点击可在新窗口打开查看此主题相关图片如下：333.jpg
图片点击可在新窗口打开查看
--  作者：yancheng
--  发布时间：2015/10/4 12:19:00
--  已解决。谢谢，大红袍
考勤月份 = #" & Vals(i)(2) & "#")