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


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

主题:[求助]复制

帅哥哟,离线,有人找我吗?
风声
  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


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/14 21:08:00 [只看该作者]

说明"一号楼"表已经有相同的项目ID数据存在

 回到顶部
帅哥哟,离线,有人找我吗?
风声
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/15 9:13:00 [只看该作者]

上面代码是放在"一号楼"这个表事件里的?如果不是,不能使用"_Identify”做关联,每个表的"_Identify”数据都是独一无二,和其它表没有关系,不能用作数据关联

 回到顶部
帅哥哟,离线,有人找我吗?
风声
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/15 14:23:00 [只看该作者]

代码没有问题,说明"一号楼"没有等于这个编号的id数据

msgbox("ID='" & e.DataRow("编号”) & "'")

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
风声
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110809 积分:563983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/16 9:32:00 [只看该作者]

我只要外部数据表增加的数据导入数据汇总表】 --- 怎么知道哪些数据是新增加的

 回到顶部
帅哥哟,离线,有人找我吗?
风声
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
总数 17 1 2 下一页