标题：为什么没有触发这一段代码？
营销部_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
谢谢