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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求一行代码

共有10162人关注过本帖树形打印复制链接主题：[求助]求一行代码

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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编辑过]

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：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

下一主题 >> << 上一主题

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