主题：列

 项目事件DataColChanged中输入
 If e.DataCol.Name = "姓名" OrElse e.DataCol.Name = "姓名" Then
     Dim dr  As  DataRow
     Dim Filter As  String
     dr = DataTables("姓名").Find(Filter ) 
    If dr IsNot  Nothing  Then  
         e.DataRow("电话") = dr("电话")
     Else
        e.DataRow("电话") = Nothing
     End  If
 End  If

哪里出错了？