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

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

重量=材的变量*面积

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

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

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

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

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

重量=材的变量*面积

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

重量=材的变量*面积


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

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

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

老师，由上面代码单个操作计算，我的操作，导入批量数据，比如1000条，想单击计算按键，就是批量计算，即1000条执行计算.谢谢