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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个代码怎么写？提示错误。

共有2774人关注过本帖树形打印复制链接主题：这个代码怎么写？提示错误。

yancheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

这个代码怎么写？提示错误。 发帖心情

Post By：2015/10/3 16:16: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

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

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

这个代码，怎么写好呢？

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

[此贴子已经被作者于2015/10/3 16:27:28编辑过]

qianqian1530

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2015/10/3 16:23:00 [只看该作者]

("[合同编号] = '" & Vals(i)(0) & "' AndAlso [员工编号] = '" & Vals(i)(1) & "' AndAlso [考勤月份] = '" & Vals(i)(2) & "'")

yancheng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00

Post By：2015/10/3 16:28:00 [只看该作者]

按你的写后，还是提示错误。麻烦看一下怎么写？谢谢。

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/4 10:53: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

下一主题 >> << 上一主题

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