主题：[求助]转表的同步删除问题

Select Case e.DataCol.name
    Case "科室_签收"
        If e.DataRow.IsNull("科室_签收") Then

            '应该在此加入同步删除但写不上来了,请帮忙写一下.谢谢!
        Else
            Dim p() As String = e.DataRow("检验项目").split(",")
            Dim dr As Row = Tables("表B").AddNew()
            dr("检验项目") = p(0)
            dr("样品编号") = e.DataRow("样品编号")
            If p.length > 1 Then
                Dim dr1 As Row = Tables("表B").AddNew()
                dr1("检验项目") = p(1)
                dr1("样品编号") = E.DataRow("样品编号")
                If p.length > 2 Then
                    Dim dr2 As Row = Tables("表B").AddNew()
                    dr2("检验项目") = p(2)
                    dr2("样品编号") = E.DataRow("样品编号")
                    If p.length > 3 Then
                        Dim dr3 As Row = Tables("表B").AddNew()
                        dr3("检验项目") = p(3)
                        dr3("样品编号") = E.DataRow("样品编号")
                        If p.length > 4 Then
                            Dim dr4 As Row = Tables("表B").AddNew()
                            dr4("检验项目") = p(4)
                            dr4("样品编号") = E.DataRow("样品编号")
                            If p.length > 5 Then
                                Dim dr5 As Row = Tables("表B").AddNew()
                                dr5("检验项目") = p(5)
                                dr5("样品编号") = E.DataRow("样品编号")
                            End If
                        End If
                    End If
                End If
            End If
        End If
End Select

问题见附件。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.table