If e.DataCol.Name = "fk1" OrElse e.DataCol.Name = "fk3"  OrElse e.DataCol.Name = "fk4"  OrElse e.DataCol.Name = "fk2"  Then

    Dim dr As DataRow

    Dim Filter As String

    Filter = "[fk1].Substring(0,1) = \'" & e.DataRow("fk1").Substring(0,1) & "\' And [fk3].Substring(10,4) = \'" & e.DataRow("fk3").Substring(14,4)  & "\'  And [fk4].Substring(7,4)  = \'" & e.DataRow("fk4").Substring(7,4)  & "\'  And [fk2] = \'" & e.DataRow("fk2") & "\'"

    dr = DataTables("fkapp202020200202").Find(Filter ) \'在行政区域表查找所输入省市和县市的行

    If dr IsNot Nothing Then \'如果找到

        \'将找到行的区号?邮编内容填入到正在输入的行中.

        e.DataRow("fk14") = dr("fk4")

    Else

        \'否则清除区号和邮编两列的内容

        e.DataRow("fk6") = Nothing

    End If

End If

上述代码执行提示如下问题，求教如何完善。谢谢！

.NET Framework 版本：2.0.50727.8835

Foxtable 版本：2016.7.29.1

错误所在事件：表，jygfk， DataColChanged

详细错误信息：

调用的目标发生了异常。

表达式包含未定义的函数调用 fk3.Substring()。