主题：求助

 怎样通过一列值除10的余数，在另一列显示不同的文字？

 比如1和6显示水，2和7显示火这样的

只有0-9 10个余数

 谢谢！刚学狐表，大致看了两遍帮助，还是总感觉狗咬刺猬无处下嘴，只能求教高手了。

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

 

如果有好几个If e.DataCol.name = "第四列"这样的列，分别对应相应多的第五列，应该怎么写代码？

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

显示金、木等列是否可用add方法添加的临时列，这种方法是不是效率要高一些？在不关闭项目的情况下临时列是否一直存在并可以用于其他的分析？

可以用临时列。不关闭的情况下，可以一直使用。

第三条代码中array是啥意思？帮助中在哪里