Select Case e.DataCol.name
Case "产品编号"
If e.NewValue Is Nothing Then
Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
For Each s As String In ary
Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
Next
End If
Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
For Each s As String In ary
Dim dr As DataRow = DataTables(s).Find("产品编号 = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables(s).AddNew()
dr("产品编号") = e.DataRow("产品编号")
dr("产品名称") = e.DataRow("产品名称")
Else
dr("产品编号") = e.DataRow("产品编号")
End If
Next
Case "产品名称"
Dim ary() As String={"新型纤维分类","差别化纤维分类","功能性纤维分类"}
For Each s As String In ary
Dim dr As DataRow = DataTables(s).Find("产品编号= '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
Next
End Select
以上是我根据提示重新写的代码,以下是保存时的提示,
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:小q截图-20151114103337_副本.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-11/2015111410525118007.jpg)
另外,我想问一下,加这个判断,好像意思是,如果产品编号新的值是空(也就是删除),那么后面的表,也寻找相应的产品编号,把它删掉,
但我的意图是,当把产品编号和产品名称都删除时,后面的表也要删除掉,而我现在的情况是:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:小q截图-20151114105232.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-11/2015111410542311941.png)
[此贴子已经被作者于2015/11/14 10:54:26编辑过]