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

表中有两列 A列和B列，如何让A列中的数据不等于A,B,C,D,E这几个数据的时候，B列中对应行中等于 中转 。

 

 请前辈们指点…   谢谢

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

谢谢… 可是有点问题，A列等于空值的时候，B列也不等于中转，还有上面的代码使用的时候，在B列等于中转的时候，A列中对应行中输入A,B,C,D,E这几个数据的时候，B列中的数据没有同步清楚。。求帮助……

 楼主，这个代码是一次性的。你如果想修改以后同步，就编写表属性->事件->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

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

 

  这样试试!

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") = "中转"
        Else
            e.DataRow("B") = Nothing
        End If
End Select

    哦哦 太感谢了，大哥你的代码怎么样子让A列中空白时B列中也是空白呢？请指点……

 

       

搞定！ 目的达到。。再次感谢。