| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求助代码：自动删除复制行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95478) |
| -- 作者：huaqing8828 -- 发布时间：2017/1/20 21:37:00 -- 求助代码：自动删除复制行 当A表的逻辑列选勾，A表的有关列就被复制到了B表，如果取消A表的选勾，B表的相应行就被删除。取消和删除这段代码应如何写 |
| -- 作者：有点蓝 -- 发布时间：2017/1/20 21:50:00 -- A表DataColChanged事件 If e.DataCol.Name = "逻辑列名称" Then If e.DataRow(e.DataCol.Name) = False Then Dim dr As DataRow dr = DataTables("B表").Find("[关联列] = \'" & e.DataRow("关联列") & "\'") If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing dr.Delete End If End If End If |
| -- 作者：huaqing8828 -- 发布时间：2017/1/20 22:03:00 -- OK,谢谢老师 |
| -- 作者：huaqing8828 -- 发布时间：2017/1/20 22:38:00 -- 老师，同样产品，订单号不一样，取消选勾的时候，删除的就不是相应的行了，该怎么处理啊 |
| -- 作者：有点色 -- 发布时间：2017/1/20 22:52:00 -- 以下是引用huaqing8828在2017/1/20 22:38:00的发言：
老师，同样产品，订单号不一样，取消选勾的时候，删除的就不是相应的行了，该怎么处理啊
你表B，要加一列【表A编号】，用来记录表A的_Identify列的值。
你给表B赋值的时候，这一列要赋值，删除的时候，根据这一列删除即可。
类似 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=94974&skin=0
|