专家坐堂-[求助]求一行代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求一行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25872)

--  作者：北冰洋
--  发布时间：2012/11/19 10:42:00
--  [求助]求一行代码

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

请前辈们指点…   谢谢

--  作者：lin_hailun
--  发布时间：2012/11/19 10:48:00
--
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

--  作者：北冰洋
--  发布时间：2012/11/19 13:19:00
--
谢谢… 可是有点问题，A列等于空值的时候，B列也不等于中转，还有上面的代码使用的时候，在B列等于中转的时候，A列中对应行中输入A,B,C,D,E这几个数据的时候，B列中的数据没有同步清楚。。求帮助……

--  作者：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

[此贴子已经被作者于2012-11-19 14:05:30编辑过]

--  作者：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

这样试试!

--  作者：北冰洋
--  发布时间：2012/11/20 9:33:00
--

以下是引用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列对应行这次没有修改了。

[此贴子已经被作者于2012-11-19 14:05:30编辑过]

--  作者：lin_hailun
--  发布时间：2012/11/20 9:35:00
--
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

--  作者：北冰洋
--  发布时间：2012/11/20 9:36:00
--

以下是引用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

这样试试!

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

--  作者：北冰洋
--  发布时间：2012/11/20 10:05:00
--

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