主题：如何引用其他表的多条件计算

 1.当”计算表“的“类型”是面

重量=材的变量*面积

2.当”计算表“的“类型”是平

重量=材的变量*系数*面积

3.当”计算表“的“类型”是平1

重量=材的变量*系数*面积

4.当”计算表“的“类型”是中

重量=材的变量*面积

5.当”计算表“的“类型”是底

重量=材的变量*面积


注：公式中
   1. “材的变量”是来自“材变量表”；

例如

代码放到datacolchanged事件：http://www.foxtable.com/webhelp/topics/1445.htm

老师，我想做一个界面互动，上面项目，在窗口上用按键执行，因为这个目前软件都是这样，单击事件。谢谢

dim r as row = tables("计算表").current

For i As Integer = 0 To Names.Length -1
Dim r As Row = Tables("计算表").current

If r IsNot Nothing Then
   Select Case r("类型")
            Case "面"
                Dim dr1 As DataRow = DataTables("材变量表").Find("材='" & r("材") & "'")
                If dr1 Is Nothing Then Return
                'Dim dr2 As DataRow = DataTables("平类系数表").Find("平类='" & r("平类") & "'")
                'If dr2 Is Nothing Then Return
                r("重量") = dr1("克重") * r("面积")
            Case "平"
              
                
        End Select
End If

    Output.Show(Names(i))
Dim Names As String() = {"重量"}
For i As Integer = 0 To Names.Length -1
Dim r As Row = Tables("计算表").current
If r IsNot Nothing Then
   Select Case r("类型")
            Case "面"
                Dim dr1 As DataRow = DataTables("材变量表").Find("材='" & r("材") & "'")
                If dr1 Is Nothing Then Return
                'Dim dr2 As DataRow = DataTables("平类系数表").Find("平类='" & r("平类") & "'")
                'If dr2 Is Nothing Then Return
                r("重量") = dr1("克重") * r("面积")
            Case "平"
              
                
        End Select
End If

    Output.Show(Names(i))
Next

没看懂要做什么。使用文字描述一下要做什么功能

遍历什么数组？对什么进行循环，批量操作？这个表所有行？