以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表达式转换成代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94681)
--  作者：chen1029
--  发布时间：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)
以上是我增加列的表达式,但是生成的表达式列为只读,不能编辑,我想把表达式转换成代码,但是不会写代码,麻烦老师帮我把上面的表达式转换成代码.谢谢!!
--  作者：有点色
--  发布时间：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
--  发布时间：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

这是怎么回事呢,求指教?
--  作者：有点色
--  发布时间：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
--  发布时间：2016/12/29 15:03:00
--  
又提示:

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

错误代码 If e.DataCol.name = "一" orelse e.DataCol.name = "二" orelse e.DataCol.name = "三" Then
--  作者：chen1029
--  发布时间：2016/12/29 15:06:00
--  
求表达式   SubString([列A],2,1)  的代码
--  作者：chen1029
--  发布时间：2016/12/29 15:06:00
--  
也许我将这个表达式转成代码就好了
--  作者：chen1029
--  发布时间：2016/12/29 15:07:00
--  
求表达式   SubString([列A],2,1)  的代码 谢谢
--  作者：有点色
--  发布时间：2016/12/29 15:10:00
--  

 写到datacolchanged事件。

 

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