Foxtable(狐表)用户栏目专家坐堂 → 代码


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

主题:代码

帅哥哟,离线,有人找我吗?
wangyinming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
代码  发帖心情 Post By:2015/4/22 17:21:00 [显示全部帖子]



我想要的意思是 
原本新增行时,是复制上一条数据的内容。
当管理号码发生变化的话,管理号码1和生产数清零。
当管理号码1发生变化的话,生产数清零。
但是使用了以下代码后,新增行时,生产数直接清零了。
高手请确认看看代码有何问题?
Select Case e.DataCol.Name
    Case "管理号码"
        If e.DataCol.Name = "管理号码" Then  '发生变化的是管理号码吗?(
            e.DataRow("管理号码1")= Nothing '管理号码1清空
            e.DataRow("生产数")= Nothing  '生产数清空
        End If
   End Select

        Select Case e.DataCol.Name
            Case "管理号码1"
                If e.DataCol.Name = "管理号码1" Then  '发生变化的是管理号码吗?(
                    e.DataRow("生产数")= Nothing  '生产数清空
                End If
        End Select

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
  发帖心情 Post By:2015/4/22 17:31:00 [显示全部帖子]

我已经复制好数据了,但是在输入指定列发生变化时,清空指定列。请Ben再看看??

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
  发帖心情 Post By:2015/4/22 17:33:00 [显示全部帖子]

复制指定列的代码已写完,请确认

DataRowAdding


If e.DataTable.DataRows.Count = 0 Then '如果是一个空表
    Return '那么返回
End If

e.DataRow("工程") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("工程")
e.DataRow("作业日期") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("作业日期")
e.DataRow("管理号码") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("管理号码")
e.DataRow("加硫炉号") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("加硫炉号")
e.DataRow("生产数") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("生产数")
e.DataRow("管理号码1") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("管理号码1")

 回到顶部