逻辑自动复制行，删除行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 逻辑自动复制行，删除行

共有2505人关注过本帖树形打印复制链接主题：逻辑自动复制行，删除行

nmxmnxf

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

加好友

发短信

等级：婴狐帖子：14 积分：321 威望：0 精华：0 注册：2009/11/6 11:22:00

逻辑自动复制行，删除行 发帖心情

Post By：2019/1/3 11:04:00 [只看该作者]

If e.DataCol.Name = "加入台帐" AndAlso e.DataRow("加入台帐") = True Then

Dim nma() As String = {"记录编号","巡查日期","巡查项目","巡查线路","发现违法情况","备注"} 'A表数据来源列

Dim nmb() As String = {"记录编号","巡查日期","巡查内容","巡查路线","发现违法情况","备注"} 'B表数据接收列

Dim dr As DataRow = DataTables("巡查台帐").AddNew

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = e.DataRow(nma(i))

End If

以上代码可以实现逻辑复制行到台帐表，但如何实现逻辑列由true 变为false时再删除巡查台帐中刚新增的行？看论坛上有同样的贴子，但加入那行代码，不成功，希望帮助写下代码。急等中..........

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 11:27:00 [只看该作者]

If e.DataCol.Name = "加入台帐" Then
    If e.DataRow("加入台帐") = True Then
        Dim nma() As String = {"记录编号","巡查日期","巡查项目","巡查线路","发现违法情况","备注"} 'A表数据来源列
        Dim nmb() As String = {"记录编号","巡查日期","巡查内容","巡查路线","发现违法情况","备注"} 'B表数据接收列
        Dim dr As DataRow = DataTables("巡查台帐").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    Else
        DataTables("巡查台帐").deletefor("记录编号='" & e.DataRow("记录编号") & "'")
    End If
End If

nmxmnxf

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

加好友

发短信

等级：婴狐帖子：14 积分：321 威望：0 精华：0 注册：2009/11/6 11:22:00

完美解决，非常感谢 发帖心情

Post By：2019/1/3 11:32:00 [只看该作者]

完美解决，非常感谢！！！

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

主题：逻辑自动复制行，删除行