If e.DataCol.Name = "财务编号" Then \'当财务编号输入时

    \'在返利合同表中找到相对应的列内容并填入

    Dim dr As DataRow

    dr = DataTables("返利合同").Find("财务编号 = \'" & e.DataRow("财务编号") & "\'" )

        If dr IsNot Nothing \'如果找到, 则设置各列内容

        e.DataRow("项目")= dr("项目")

        e.DataRow("合同编号")= dr("合同编号")

        e.DataRow("合同单位")= dr("合同单位")

        e.DataRow("返利单位")= dr("返利单位")

    End If

End If

麻烦老师看一下这段代码，现在是输入财务编号时没反应，当删除财务编号时，相对应的项填入了，不知道是怎么回事。