- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 全局事件datarowadding自动编号新增行时出错？(已解决) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27601)
-- 发布时间：2013/1/5 17:10:00
-- 全局事件datarowadding自动编号新增行时出错？(已解决)
各位老师，
本来想做个新增行时编号不连续的例子上来，但从外部数据源导入表后怎么新增行时老出错，不知道什么原因？
在SQL正常运行的代码怎么到access就老是出错，一堆问题，请各位老师帮忙看一下。
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动编号测试.rar |
在SQL数据源中运行是可以自动生成编号的。
-- 发布时间：2013/1/5 17:53:00
--
原本正常？使用外部数据源正常吗？
代码有点复杂，需要花时间处理。
-- 发布时间：2013/1/5 18:15:00
--
代码运行正常，但就是产生的新的号码有些表单连续，有些又不连续。如下
此主题相关图片如下：qq截图20130105160050.jpg
我看了一下只要是表的另外一个全局表事件datacolchanged有用到如下代码的
Case "出库单"
\' If e.DataRow.IsNull("出库单号") = False Then \'如果已经输入订单编号
\' If e.DataRow.GetChildRows("出库明细").Count = 0 Then \'而且无订单明细
\' Dim dr As DataRow = DataTables("出库明细").AddNew()
\' dr("出库单号") = e.DataRow("出库单号")
\' End If
\' End If
datarowadding中的代码就会重复循环的执行代码几次不等，造成跳号，注释掉上面的代码就没问题了，
因为比较多所以我新做了那个例子，但发现新做的例子有好多问题，有时保存时表的记录就莫名奇妙的被删除了，是不是新版有问题啊，我昨晚才更新的。
-- 发布时间：2013/1/5 18:59:00
--
最好有个例子说明。
-- 发布时间：2013/1/5 21:28:00
--
因为Insert Into 语句不能用在内部数据源，所以转成了Access的外部数据源。
这是根据程版那个网络不重复编号的思路改的，可能是哪里学不到家吧。，但也老出错，请大师们再看看
-- 发布时间：2013/1/5 22:02:00
--
没有开发版，不能帮你了。
-- 发布时间：2013/1/6 12:45:00
--
感谢大家了，特别是小林老师，帮我远程一个多小时修改代码，直到解决问题为止，连午饭都顾不上吃。有他这么热心和敬业的老师，真的是我们这些菜鸟的福音和动力啊。遗憾的是SQL转Access我老是弄不好，转完后一大堆错误，不然把这个通用的自动编号分享给大家一定很有意义的。
-- 发布时间：2013/1/6 14:52:00
--
感谢大家了，特别是小林老师，帮我远程一个多小时修改代码，直到解决问题为止，连午饭都顾不上吃。
-- 发布时间：2013/1/6 14:58:00
--
QQ 800014337
-- 发布时间：2013/1/6 17:10:00
--
QQ 800014337
你的小号呢？