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

 

营销部_DataColChanged：

 

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

谢谢

还有，你这个项目使用了外部数据源"行政区域.mdb"，如果你单单传项目文件，而不传这个行政区域.mdb文件，是没有意义的，因为其他人无从下手测试。

已上传，并测试成功