Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:列跳转求助

1楼
cxmxjwlmq 发表于:2025/4/13 13:53:00
各位老师:在表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
或者离开单价列后跳到备注列的另外代码?
请各位老师费心!

2楼
有点蓝 发表于:2025/4/13 20:21:00
DataColChanged肯定是数据发生变化才会触发的,永远都不可能新值等旧值

如果要离开单价列进行跳转,应该到AfterSelChange事件处理
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.