以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关联数据删除  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68557)
--  作者：yifan3429
--  发布时间：2015/5/20 13:39:00
--  关联数据删除
If e.DataCol.Name = "顾客称呼" AndAlso e.NewValue <> Nothing Then
    Dim fdr As DataRow = DataTables("客户资源").Find("顾客称呼 = \'" & e.NewValue & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("客户资源").AddNew
        fdr("顾客称呼") = e.DataRow("顾客称呼")
    End If
End If

通过上述代码  添加了数据  如果当前表的类容被删除了  我想同时删除  客户资源表里面的相同数据的行   求助
--  作者：Bin
--  发布时间：2015/5/20 13:44:00
--  
在BefordatarowDeleted  删除行前 事件

DataTables("客户资源").deletefor("顾客称呼 = \'" & e.datarow("顾客名称") & "\'")
--  作者：yifan3429
--  发布时间：2015/5/20 14:03:00
--  
DataTables("产品制造跟踪").deletefor("产品编号 = \'" & e.DataRow("产品编号") & "\'")

如果没有数据就会产生错误   判断条件  还需要帮助？
--  作者：大红袍
--  发布时间：2015/5/20 14:12:00
--  
 不会产生错误，代码不好可能报错的。
--  作者：Bin
--  发布时间：2015/5/20 14:26:00
--  
如果你指的是 产品编号为空.确实会出现错误. 判断一下即可

if e.DataRow.isnull("产品编号")=false then
DataTables("产品制造跟踪").deletefor("产品编号 = \'" & e.DataRow("产品编号") & "\'")
end if