Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制


  共有2801人关注过本帖树形打印复制链接

主题：[求助]复制
帅哥哟，离线，有人找我吗？
风声
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		[求助]复制  发帖心情 Post By：2023/12/14 20:21:00 [显示全部帖子]

老师，下面代码勾选后只能复制三行，全部勾选也只能复制三行。

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim dr1 As DataRow = DataTables("一号楼").find("项目ID='" & e.DataRow("项目ID") & "'")
        If dr1 Is Nothing Then
            Dim nma() As String = {"项目","项目ID","抄表日期","时段","年","月份"} 'A表数据来源列
            Dim nmb() As String = {"项目","项目ID","抄表日期","时段","年","月份"} '原材料数据接收列
            dr1  = DataTables("一号楼").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr1(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Else
        DataTables("一号楼").deletefor("项目ID='" & e.DataRow("项目ID") & "'")
    End If
End If

[此贴子已经被作者于2023/12/14 20:21:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/15 9:09:00 [显示全部帖子]

老师，我有了主键列后退勾不能删除数据。

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim dr1 As DataRow = DataTables("一号楼").find("_Identify='" & e.DataRow("_Identify”） & "'")
        If dr1 Is Nothing Then
            Dim nma() As String = {"_Identify”，"项目","项目ID","抄表日期","时段","年","月份"} 'A表数据来源列
            Dim nmb() As String = {"_Identify”,"项目ID","抄表日期","时段","年","月份"} '原材料数据接收列
            dr1  = DataTables("一号楼").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr1(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Else
        DataTables("一号楼").deletefor("_Identify='" & e.DataRow("_Identify”) & "'")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/15 14:10:00 [显示全部帖子]

老师，下面代码用编号和id号当关联后退勾不能删除数据。

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim dr1 As DataRow = DataTables("一号楼").find("ID='" & e.DataRow("编号”） & "'")
        If dr1 Is Nothing Then
            Dim nma() As String = {"编号”,"项目ID","抄表日期","时段","年","月份"} 
            Dim nmb() As String = {"ID”,"项目ID","抄表日期","时段","年","月份"} 
            dr1  = DataTables("一号楼").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr1(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Else
        DataTables("一号楼").deletefor("ID='" & e.DataRow("编号”) & "'")
    End If
End If

[此贴子已经被作者于2023/12/15 14:11:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/15 19:19:00 [显示全部帖子]

谢谢老师，在一个表里的列找不到一个没有重复的我想设置一列禁止重复的不知怎样搞。

 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/16 9:14:00 [显示全部帖子]

老师好，下面代码打开项目总数给我重新复制一边，我只要外部数据表增加的数据导入数据汇总表。谢谢老师！

Dim cmd3 As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"项目","项目ID","抄表日期","年","月份"}
Dim dCols() As String = {"项目","项目ID","日期","年","月"}
cmd3.C
cmd3.CommandText = "SELEC T * From {一号楼}"
dt = cmd3.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    Dim nr As DataRow = DataTables("数据汇总").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/16 9:37:00 [显示全部帖子]

老师，被导出的外部数据表和另我一个内部数据表是关联的

 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/16 9:44:00 [显示全部帖子]

老师我搞不好啊

 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/16 17:03:00 [显示全部帖子]


老师好，下面代码每次重新启动项目就把数据表重新复制一边到复制数据表。
Dim cmd3 As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"项目","日期","合计"}
Dim dCols() As String = {"项目","日期","合计"}
cmd3.C
cmd3.CommandText = "SELE CT * From {数据}"
dt = cmd3.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    Dim nr As DataRow = DataTables("复制数据").AddNew()
    For i As Integer =0 To sCols.Length -1
        nr(dCols(i)) = dr(sCols(i))
    Next
Next

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:复制外部数据.rar
 回到顶部
帅哥哟，离线，有人找我吗？
风声
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1018 积分：6800 威望：0 精华：0 注册：2014/2/12 20:14:00 		  发帖心情 Post By：2023/12/16 18:11:00 [显示全部帖子]

项目每次重新启动就重新复制一边

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询