以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75107)
--  作者：zdq_1230
--  发布时间：2015/9/27 11:58:00
--  求助
 怎样通过一列值除10的余数，在另一列显示不同的文字？
--  作者：zdq_1230
--  发布时间：2015/9/27 12:02:00
--  
 比如1和6显示水，2和7显示火这样的
--  作者：sloyy
--  发布时间：2015/9/28 2:11:00
--  
只有0-9 10个余数

dim ys as Integer
 ys=tables("表A").CURRENT("第一列") mod 10
select case ys

case 0
tables("表A").CURRENT("第二列")="金"
case 1
tables("表A").CURRENT("第二列")="木"
..
..

end select
--  作者：zdq_1230
--  发布时间：2015/9/28 10:57:00
--  
 谢谢！刚学狐表，大致看了两遍帮助，还是总感觉狗咬刺猬无处下嘴，只能求教高手了。
--  作者：大红袍
--  发布时间：2015/9/28 11:34:00
--  

DataColChanged事件

 

If e.DataCol.name = "第四列"
    Dim ys As Integer= e.newvalue Mod 10
    Select Case ys
           
        Case 0
            e.DataRow("第五列")="金"
        Case 1
            e.DataRow("第五列")="木"

    End Select
End If

 
--  作者：zdq_1230
--  发布时间：2015/9/28 14:23:00
--  
如果有好几个If e.DataCol.name = "第四列"这样的列，分别对应相应多的第五列，应该怎么写代码？
--  作者：大红袍
--  发布时间：2015/9/28 14:29:00
--  

Dim ary1() As String = {"第四列", "第六列"}
dim ary2() as string = {"第五列", "第七列"}

Dim idx As String = array.IndexOf(ary1,e.DataCol.Name)
If idx >= 0 Then
    Dim ys As Integer= e.newvalue Mod 10
    Select Case ys
       
        Case 0
            e.DataRow(ary2(idx))="金"
        Case 1
            e.DataRow(ary2(idx))="木"
           
    End Select
End If
--  作者：zdq_1230
--  发布时间：2015/9/28 14:44:00
--  
显示金、木等列是否可用add方法添加的临时列，这种方法是不是效率要高一些？在不关闭项目的情况下临时列是否一直存在并可以用于其他的分析？
--  作者：大红袍
--  发布时间：2015/9/28 14:45:00
--  
可以用临时列。不关闭的情况下，可以一直使用。
--  作者：zdq_1230
--  发布时间：2015/9/28 16:03:00
--  
第三条代码中array是啥意思？帮助中在哪里