主题：[讨论]帮助里的自动输入案例存在不完善

'如果刚刚输入的是省市或县市列
If e.DataCol.Name = "省市" Orelse e.DataCol.Name = "县市" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[省市] = '" & e.DataRow("省市") & "' And [县市] = '" & e.DataRow("县市") & "'"
    dr = DataTables("行政区域").Find(Filter) '在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号和邮编内容填入到正在输入的行中
        e.DataRow("区号") = dr("区号")
        e.DataRow("邮编") = dr("邮编")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("区号") = Nothing
        e.DataRow("邮编") = Nothing
    End If
End If

以上代码不算很谨慎，如下图，（上不了图，WIN10上不了附件），

不足的是案例里的先选省市为广东省，县市可以选择为广州市，然后再把省市改成黑龙江省，这时的县市还是广州市，请问应该怎么完善，当省里改成黑龙江省后，不符合条件的广州市应该自动为空值，谢谢。