Foxtable(狐表)用户栏目专家坐堂 → 跨表


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

主题:跨表

帅哥哟,离线,有人找我吗?
小猪鑫鑫
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:832 积分:5867 威望:0 精华:6 注册:2011/5/27 11:41:00
  发帖心情 Post By:2011/11/18 20:03:00 [显示全部帖子]

看看这个是否满足你的要求,代码在datacolchanged的事件中
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计演示.table


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


加好友 发短信
等级:四尾狐 帖子:832 积分:5867 威望:0 精华:6 注册:2011/5/27 11:41:00
  发帖心情 Post By:2011/11/19 21:23:00 [显示全部帖子]

楼主:我测试了你删除了日期、数量、金额以后的数据库,单击订单表删除列也能删除引用表中的行,没有问题啊?

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


加好友 发短信
等级:四尾狐 帖子:832 积分:5867 威望:0 精华:6 注册:2011/5/27 11:41:00
  发帖心情 Post By:2011/11/20 8:52:00 [显示全部帖子]

你大概是需要这个,整行不删除,只清除相关单元格的信息
If e.DataCol.name ="删除" Then
If e.DataRow("删除") =True Then
Dim dr As DataRow
dr =DataTables("引用").find("_identify =" & e.DataRow("_identify"))
If dr IsNot Nothing Then
dr("产品") =Nothing
dr("客户") =Nothing
dr("雇员") =Nothing
End If
End If
End If

 回到顶部