以文本方式查看主题

-  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=152382)
--  作者：outcat
--  发布时间：2020/7/11 1:57:00
--  关联删除
If MessageBox.Show("是否删除当前商品明细信息?","提示",MessageBoxButtons.YesNo)=DialogResult.Yes Then
    If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Dim r As Row  = Tables("商品明细表").Current
        Dim dr As DataRow
        dr = DataTables("商品名称附表").Find("商品编号 = \'" & r("商品编号") & "\'")
        If dr IsNot Nothing Then
            dr("IsDelete") = 1
            dr("DeleteUser") =_UserName
            dr("DeleteDate") = Date.Today
            DataTables("商品名称附表").LoadFilter = "IsDelete = 0"
            DataTables("商品名称附表").Load
        End If
        r("IsDelete") = 1
        r("DeleteUser") =_UserName
        r("DeleteDate") = Date.Today
        DataTables("商品明细表").LoadFilter = "IsDelete = 0"
        DataTables("商品明细表").Load
    End If
    Functions.Execute("商品刷新")
End If

老师，我上面黄色部分 dr  赋值这里，我这个商品明细表的商品编号，对应商品名称附表里商品编号，可是商品名称附表里有多条记录和商品明细表里的商品编号相同，然后我对商品名称附表里这几条记录赋值，可现在只能一条记录能修改成功，我用for语句，怎么写还是不行，请老师帮忙了
--  作者：有点蓝
--  发布时间：2020/7/11 9:05:00
--  
Dim r As Row  = Tables("商品明细表").Current
for each dr as datarow in DataTables("商品名称附表").Select("商品编号 = \'" & r("商品编号") & "\'")
            dr("IsDelete") = 1
            dr("DeleteUser") =_UserName
            dr("DeleteDate") = Date.Today
next
            DataTables("商品名称附表").LoadFilter = "IsDelete = 0"
            DataTables("商品名称附表").Load