各位老师:在表DataColChanged中,写入如下代码,希望离合单价列后,不管有没有变化,焦点都自动跳转到第12列,但现在数值有变化后焦点可以跳转,没有变化跳转不了!
If e.DataCol.Name = "单价" Then
'Messagebox.show("单价 发生变化!")
If e.NewValue = e.OldValue Then '如果新值等旧值
e.DataRow("折后单价") = e.DataRow("折后单价1")
Tables("销售出库单_Table1").Select(Tables("销售出库单_Table1").RowSel,12) '定位到当前行到备注列
Else
e.DataRow("折后单价") = e.DataRow("折后单价1")
e.DataRow("修改前单价") = e.OldValue
e.DataRow("修改单价人员") = _UsersName & " " & Date.Now
Tables("销售出库单_Table1").Select(Tables("销售出库单_Table1").RowSel,12) '定位到当前行的到备注列
End If
End If
或者离开单价列后跳到备注列的另外代码?
请各位老师费心!
DataColChanged肯定是数据发生变化才会触发的,永远都不可能新值等旧值