If e.DataCol.Name = "市场片区_省市" Then
    If e.DataRow.IsNull("市场片区_县市")  Then
        e.Cancel = True
    Else
        Dim a As new SQLCommand
        Dim b As datatable
        With a
              .ConnectionName　＝　"行政区域"　　　
            .CommandText = "select * from {行政区域} where [省市] = \'"& e.DataRow("市场片区_省市") & "\' and [县市] = \'" & e.DataRow("市场片区_县市") &"\' "
            b = .ExecuteReader
        End With
        If b.DataRows.Count = 0 Then
            e.DataRow("市场片区_县市") = Nothing
            e.DataRow("营销部代码") = Nothing
            MessageBox.Show("县市你改过了吗?")
     Else
            Dim sss As String
            Dim xss As String
            sss = e.DataRow("市场片区_省市")
            xss = e.DataRow("市场片区_县市")
            sss = sss.SubString(0,2)
            xss = xss.SubString(0,2)
            sss = getpy(sss,True)
            xss = getpy(xss,True)
            e.DataRow("营销部代码") = sss & xss

        End If
    End If
End If

红色部分的代码没有触发

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

点击浏览该文件:销售管理系统.table

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

点击浏览该文件:行政区域.rar

如果不行，就说明没有符合条件的行：

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "市场片区_省市" Orelse e.DataCol.Name = "市场片区_县市" Then
    If dr.IsNull("市场片区_省市") Orelse dr.IsNull("市场片区_县市")  Then
        Return
    Else
        Dim a As new SQLCommand
        Dim b As datatable
        With a
            .C
            .CommandText = "select * from {行政区域} where [省市] = \'"& dr("市场片区_省市") & "\' and [县市] = \'" & dr("市场片区_县市") &"\' "
            b = .ExecuteReader
        End With
        If b.DataRows.Count = 0 Then
            dr("市场片区_县市") = Nothing
            dr("营销部代码") = Nothing
            MessageBox.Show("县市你改过了吗?")
        Else
            Dim sss As String
            Dim xss As String
            sss = dr("市场片区_省市")
            xss = dr("市场片区_县市")
            sss = sss.SubString(0,2)
            xss = xss.SubString(0,2)
            sss = getpy(sss,True)
            xss = getpy(xss,True)
            dr("营销部代码") = sss & xss
        End If
    End If
End If

谢谢