主题：为什么没有触发这一段代码？

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