| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]在表A格式化录入值同时自动在表B新建行，为何新建2行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39424) |
| -- 作者：wxfjamdc -- 发布时间：2013/8/24 1:12:00 -- [求助]在表A格式化录入值同时自动在表B新建行，为何新建2行 现在的代码如下 If e.DataCol.Name = "编号" Then e.DataRow("编号")=format(Val(e.newValue),"000000") \' 格式化编号 Dim dn As DataRow = DataTables("表B").AddNew End If End If |
| -- 作者：y2287958 -- 发布时间：2013/8/24 8:03:00 -- 你的代码触动了两次DataRowLockedChanged事件 当然会生成两条记录的
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/8/24 8:36:00 -- If e.DataCol.Name = "编号" Then If e.newvalue > "" AndAlso e.newvalue.length <> 6 Then e.DataRow("编号")=format(Val(e.newValue),"000000") \' 格式化编号 Dim dn As DataRow = DataTables("表B").AddNew End If End If |
| -- 作者：wxfjamdc -- 发布时间：2013/8/25 10:50:00 -- 如果输入6位那不就不执行添加行了吗 [此贴子已经被作者于2013-8-25 10:50:26编辑过]
|
| -- 作者：y2287958 -- 发布时间：2013/8/25 12:10:00 -- 是的 因为你格式化后是6位
|
| -- 作者：wxfjamdc -- 发布时间：2013/8/25 13:29:00 -- 那怎么修改能实现了 |
| -- 作者：有点甜 -- 发布时间：2013/8/25 21:37:00 -- 楼主应该是写在datacolchanged事件的代码吧。你触发了两次，你应该这样改。 If e.DataCol.Name = "编号" Then e.newvalue = format(Val(e.newValue),"000000") \' 格式化编号 Dim dn As DataRow = DataTables("表B").AddNew End If |