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


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

主题:代码

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

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/22 17:28:00 [只看该作者]

你在DataROWAdED 事件 复制上一行的数据啊.或者直接用克隆行

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


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

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

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/22 17:33:00 [只看该作者]

你赋值的时候,触发了DataColChanged

你要在你新增行事件的前后加入暂停事件代码


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

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


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/4/22 17:35:00 [只看该作者]

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("管理号码1") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("管理号码1")
e.DataRow("加硫炉号") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("加硫炉号")
e.DataRow("生产数") = Tables("二次加硫").Rows(Tables("二次加硫").Count - 1)("生产数")
 

 回到顶部