| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]复制上一行数据不对 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152784) |
| -- 作者：流水 -- 发布时间：2020/7/22 11:05:00 -- [求助]复制上一行数据不对 新增一行后想直接复制上一行部分内容到当前行；代码如下； Dim b As Integer = Tables(e.DataTable.Name).Position - 1 \'返回上一行位置 If b > 0 Then e.DataRow("起始里程") = Tables(e.DataTable.Name).Rows(b)("结束里程") \'填充上一行内容到当前行 End If 复制成功，但是复制的内容是上一行“起始里程”，不是“结束里程”数据，不知道为什么
|
| -- 作者：有点蓝 -- 发布时间：2020/7/22 11:13:00 -- 这个代码没有问题，除非有其它代码影响。 贴出这个事件完整代码
|
| -- 作者：流水 -- 发布时间：2020/7/22 13:17:00 -- 完整代码只有这些： 车辆使用记录_DataRowAdded
\'Dim b As Integer = Tables(e.DataTable.Name).Position - 1 \'返回上一行位置 \'If b > 0 Then \'e.DataRow("起始里程") = Tables(e.DataTable.Name).Rows(b)("结束里程") \'填充上一行内容到当前行 \'End If |
| -- 作者：有点蓝 -- 发布时间：2020/7/22 13:41:00 -- 把这个表其他事件全部注释掉测试有没有问题？ |
| -- 作者：流水 -- 发布时间：2020/8/3 12:40:00 -- 写成这样就好了，不用减1； \'Dim b As Integer = Tables(e.DataTable.Name).Position \'返回上一行位置 \'If b > 0 Then \'e.DataRow("起始里程") = Tables(e.DataTable.Name).Rows(b)("结束里程") \'填充上一行内容到当前行 \'End If |