主题：又来麻烦大家了！

我不懂你的业务逻辑，无法知道什么是对的，什么是错的。

请仔细检查相关的代码。

表述问题，要让局外人明白，我在什么地方，设置地什么代码之类的，目的是什么，正常的情况是什么，结果出现了什么异常，例如我这样操作，正确的结果应该怎样，结果却怎样。

投递表中的diz列，你已经改为表达式了，所以你应该删除用户表的DataColChanged事件代码：

If e.DataCol.Name = "hum" OrElse e.DataCol.Name = "diz" Then
    Dim Filter As String = "[diz] = '" & e.DataRow("diz") & "'"
    Dim drs As List(Of DataRow) = DataTables("投递").Select(Filter)
    For Each dr As DataRow In drs
        dr("diz") = e.DataRow("diz")

    Next
End If