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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式转换成代码

共有2185人关注过本帖树形打印复制链接主题：表达式转换成代码

chen1029

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

加好友

发短信

等级：婴狐帖子：75 积分：523 威望：0 精华：0 注册：2016/12/29 8:29:00

表达式转换成代码 发帖心情

Post By：2016/12/29 13:13:00 [只看该作者]

IIF([一]In('0','1','2','3','4','6')And([二]In('0','1','2','3','4','6')And([三]In('0','1','2','3','4','6'))),'√',Null)

以上是我增加列的表达式,但是生成的表达式列为只读,不能编辑,我想把表达式转换成代码,但是不会写代码,麻烦老师帮我把上面的表达式转换成代码.谢谢!!

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/29 13:24:00 [只看该作者]

If e.DataCol.name = "aaa" Then
    Dim ary() As String = {"1", "2", "3", "4", "5", "6"}
    If array.IndexOf(ary, e.DataRow("一")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("二")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("三")) >= 0 Then
        e.DataRow("aaa") = "√"
    Else
        e.DataRow("aaa") = Nothing
    End If

End If

chen1029

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

加好友

发短信

等级：婴狐帖子：75 积分：523 威望：0 精华：0 注册：2016/12/29 8:29:00

Post By：2016/12/29 14:40:00 [只看该作者]

在执行时提示:编译错误: "e"是"private",因此它在此上下文中不可访问

错误代码 If e.DataCol.name = "aaa" Then

这是怎么回事呢,求指教?

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/29 14:50:00 [只看该作者]

代码写到datacolchanged事件

http://www.foxtable.com/webhelp/scr/1445.htm

If e.DataCol.name = "一" orelse e.DataCol.name = "二" orelse e.DataCol.name = "三" Then
    Dim ary() As String = {"1", "2", "3", "4", "5", "6"}
    If array.IndexOf(ary, e.DataRow("一")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("二")) >= 0 AndAlso array.IndexOf(ary, e.DataRow("三")) >= 0 Then
        e.DataRow("aaa") = "√"
    Else
        e.DataRow("aaa") = Nothing
    End If
End If