主题：请教引用问题

此主题相关图片如下：截图1353492283.png

此主题相关图片如下：截图1353567213.png

Select Case e.DataCol.name
    Case "审核"
        Dim dr As DataRow = DataTables("采购").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
        dr("审核") = e.DataRow("审核")
End Select

If "管制号" NOT Like '采*'THEN
If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
    Dim nma() As String = {"管制号","规格","数量","客户"}
    Dim nmb() As String = {"管制号","规格","数量","客户"}
    Dim dr As DataRow = DataTables("出库").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If
Else
Select Case e.DataCol.name
    Case "审核"
        Dim dr As DataRow = DataTables("采购").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
        dr("审核") = e.DataRow("审核")
End Select
End If
想实现管制号不是采字开头的执行一段，是采字号开头的执行后一段，不知代码要怎么写，请指点，谢谢！！！

谢谢！！！问题解决。