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语句，怎么写还是不行，请老师帮忙了
加好友 
发短信
Post By：2020/7/11 1:57:00 [只看该作者]
