Foxtable(狐表)用户栏目专家坐堂 → 使用网络环境下的复杂编号关联表让子子表同步更新 增加


  共有11213人关注过本帖树形打印复制链接

主题:使用网络环境下的复杂编号关联表让子子表同步更新 增加

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 16:04:00 [显示全部帖子]

你这个文件,关联表的编号就已经同步更改了的。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 16:24:00 [显示全部帖子]

是不是你的版本太旧,我测试没有问题的。

你先升级一下,实在不行,我远程帮你看一下。

[此贴子已经被作者于2011-8-29 16:24:02编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/8/29 16:33:00 [显示全部帖子]

DataRowAdding代码改为:

 

'生成临时编号
Static Index As Integer = 99999
e.DataRow("编号") = Format(Date.Today(),"yyMM") & "-" & Index
Index = Index - 1
Dim dr As DataRow = DataTables("关联订单").AddNew()
dr("编号") = e.DataRow("编号")

 

这样订单表增加一行,订单明细表也会增加一行。

注意:修改代码前,先保存一下数据。

[此贴子已经被作者于2011-8-29 16:33:22编辑过]

 回到顶部