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


  共有1754人关注过本帖树形打印复制链接

主题:表达式转换成代码

帅哥哟,离线,有人找我吗?
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 [只看该作者]

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

在执行时提示:编译错误: "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


 回到顶部
帅哥哟,离线,有人找我吗?
chen1029
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2016/12/29 15:03:00 [只看该作者]

又提示:

编译错误: "DataCol"不是"RowColEventArgs"的成员

错误代码 If e.DataCol.name = "一" orelse e.DataCol.name = "二" orelse e.DataCol.name = "三" Then


 回到顶部
帅哥哟,离线,有人找我吗?
chen1029
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2016/12/29 15:06:00 [只看该作者]

求表达式   SubString([列A],2,1)  的代码

 回到顶部
帅哥哟,离线,有人找我吗?
chen1029
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2016/12/29 15:06:00 [只看该作者]

也许我将这个表达式转成代码就好了

 回到顶部
帅哥哟,离线,有人找我吗?
chen1029
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2016/12/29 15:07:00 [只看该作者]

求表达式   SubString([列A],2,1)  的代码 谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/29 15:10:00 [只看该作者]

 写到datacolchanged事件。

 

 SubString([列A],2,1) 写成 e.DataRow("列A").SubString(1,1)


 回到顶部