主题：[求助]求一行代码

以下是引用lin_hailun在2012-11-19 13:55:00的发言：
 楼主，这个代码是一次性的。你如果想修改以后同步，就编写表属性->事件->datacolchanged

Select Case e.DataCol.Name
    Case "A"
        Dim data() As String = {"A", "B", "C", "D", "E"}
        If e.DataRow.IsNull("A")=False AndAlso Array.IndexOf(data, e.DataRow("A")) = -1 Then
            e.DataRow("B") = "中转"
        End If
End Select

谢谢 谢谢。 这个用了后，假如先输入z,B列对应行出现输入了，然后把z修改为A，B列对应行这次没有修改了。

以下是引用blackzhu在2012-11-19 14:00:00的发言：

Dim data() As String = {"A", "B", "C", "D", "E"}
For Each r As Row In Tables("表A").Rows
    If Array.IndexOf(data, r("第一列")) = -1 Then
        r("第二列") = "中转"
    Else
        r("第二列") = Nothing
    End If
Next

 

  这样试试!