| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 行修改不自动增加行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106613) |
| -- 作者：恒隆君 -- 发布时间：2017/9/12 16:44:00 -- 行修改不自动增加行 如果只要当前行的内容修改， 如刀具编号 由CW1234，改成CW12345, 不自动增加行。 如何实现？ 刀具库位_DataColChanged If e.DataCol.Name = "刀具编号" AndAlso dr.Isnull("刀具编号")=False Then \'如果是刀具编号列的内容变动 e.DataRow("归库日期") = Date.now e.DataRow("归库人") = User.Name Tables("归库记录").insertNew() End If [此贴子已经被作者于2017/9/12 16:55:05编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/9/12 17:24:00 -- If e.DataCol.Name = "刀具编号" AndAlso dr.Isnull("刀具编号")=False Then \'如果是刀具编号列的内容变动
e.DataRow("归库日期") = Date.now
e.DataRow("归库人") = User.Name
If e.NewValue.Contains(cstr(e.oldvalue))=false then
Tables("归库记录").insertNew()
End If
End If |