主题：[讨论]自动执行公式无法执行

在表的【DataColChanged】中写有以下命令；如果是直接在【宽带帐号】中手工填入内容就可以生效；如果【宽带帐号】是通过命令从【客户投诉故障情况】这个字段中通过命令提取后自动填入到【宽带帐号】中；命令就无法生效。该怎么处理？

Select Case e.DataCol.name

Case "宽带帐号","客户投诉故障情况"
e.DataRow("光端口状态") = Nothing

Dim dr1 As DataRow  = DataTables("资源不准确整改清单表").sqlFind("宽带帐号 =  '" & e.DataRow("宽带帐号") & "'  and  光端口状态 is not null  and 工单类型 = '桥接改路由整改工单' ")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("光端口状态") &= " / 光猫桥接关闭光端口"
MessageBox.show("该宽带帐号被【光猫桥接整改】关闭光端口,关闭原因请看【光端口状态】内容!!!", "非常关键提醒")
End If
                                                                                       
dr1 = DataTables("资源不准确整改清单表").sqlFind("宽带帐号 =  '" & e.DataRow("宽带帐号") & "'  and  光端口状态 is not null  and 工单类型 = '无线电视整改工单' ")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("光端口状态") &= " / 电视无线关闭光端口"
MessageBox.show("该宽带帐号被【电视无线整改】关闭光端口,关闭原因请看【光端口状态】内容!!!", "非常关键提醒")
End If
                                                                                       
dr1 = DataTables("弱光整治清单表").sqlFind("宽带帐号 =  '" & e.DataRow("宽带帐号") & "'  and  光端口状态 is not null  ")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("光端口状态") &= " / 存量弱光关闭光端口"
MessageBox.show("该宽带帐号被【处理工单弱光整改】关闭光端口,关闭原因请看【光端口状态】内容!!!", "非常关键提醒")
End If
                                                                                       
dr1 = DataTables("新装弱光整治清单表").sqlFind("宽带帐号 =  '" & e.DataRow("宽带帐号") & "'  and  光端口状态 is not null  ")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("光端口状态") &= " / 新装弱光关闭光端口"
MessageBox.show("该宽带帐号被【新装弱光整改】关闭光端口,关闭原因请看【光端口状态】内容!!!", "非常关键提醒")
End If
                                                                                       
End Select