- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 光标自动定位 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106543)
-- 发布时间：2017/9/11 11:42:00
-- 光标自动定位
此主题相关图片如下：111.jpg
-- 发布时间：2017/9/11 11:45:00
--
你在什么事件执行什么代码新增行的？贴出代码
-- 发布时间：2017/9/11 11:57:00
--
DataColChanged
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "刀具编号" AndAlso dr.Isnull("刀具编号")=False Then
e.DataRow("申请日期") = Date.now
e.DataRow("申请人") = User.Name\'
Tables("刀具验收").insertNew()
End If
-- 发布时间：2017/9/11 12:05:00
--
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "刀具编号" AndAlso dr.Isnull("刀具编号")=False Then
e.DataRow("申请日期") = Date.now
e.DataRow("申请人") = User.Name\'
Tables("刀具验收").insertNew()
Sendkeys.Send("{left}")
End If
-- 发布时间：2017/9/11 12:54:00
--
谢谢，搞定了。：）