主题：全局事件datarowadding自动编号新增行时出错？(已解决)

各位老师，

 

本来想做个新增行时编号不连续的例子上来，但从外部数据源导入表后怎么新增行时老出错，不知道什么原因？

 

 

在SQL正常运行的代码怎么到access就老是出错，一堆问题，请各位老师帮忙看一下。

 

谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动编号测试.rar

 

在SQL数据源中运行是可以自动生成编号的。

代码运行正常，但就是产生的新的号码有些表单连续，有些又不连续。如下

 

 
此主题相关图片如下：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中的代码就会重复循环的执行代码几次不等，造成跳号，注释掉上面的代码就没问题了，

 

因为比较多所以我新做了那个例子，但发现新做的例子有好多问题，有时保存时表的记录就莫名奇妙的被删除了，是不是新版有问题啊，我昨晚才更新的。

因为Insert Into 语句不能用在内部数据源，所以转成了Access的外部数据源。

这是根据程版那个网络不重复编号的思路改的，可能是哪里学不到家吧。，但也老出错，请大师们再看看

感谢大家了，特别是小林老师，帮我远程一个多小时修改代码，直到解决问题为止，连午饭都顾不上吃。有他这么热心和敬业的老师，真的是我们这些菜鸟的福音和动力啊。遗憾的是SQL转Access我老是弄不好，转完后一大堆错误，不然把这个通用的自动编号分享给大家一定很有意义的。