主题：[求助]如何实现EXCEL函数运算

 基于这段代码：
Select Case e.DataCol.Name
    Case "手动两驱基本型","手动两驱标准型","手动两驱舒适型""自动两驱标准型""自动两驱舒适型""自动两驱豪华型"
        Dim idx As Integer = Tables("B20A").FindRow(e.DataRow)
        If idx = 0 Then
            e.DataTable.DataCols("手动两驱基本型").RaiseDataColChanged("_Identify <> " & e.DataRow("_Identify"))
            e.DataRow("生产计划_1") = Nothing
        Else If idx < 7 Then
            e.DataRow("生产计划_1") = Nothing
        Else
            Dim r1 As Row = Tables("B20A").Rows(0)
            e.DataRow("生产计划_1") = r1("手动两驱基本型") * e.DataRow("手动两驱基本型") + r1("手动两驱标准型") * e.DataRow("手动两驱标准型") + r1("手动两驱舒适型") * e.DataRow("手动两驱舒适型")+r1("自动两驱标准型") * e.DataRow("自动两驱标准型")+r1("自动两驱舒适型")* e.DataRow("自动两驱舒适型")+r1("自动两驱豪华型") * e.DataRow("自动两驱豪华型")  
        End If
End Select
这个是进行生产计划_1列的运算，输入的r1("手动两驱基本型") * e.DataRow("手动两驱基本型")是第一行数据，
如果我要添加事件：在生产计划_2列进行相同规则运算， 而输入的r1("手动两驱基本型") * e.DataRow("手动两驱基本型")改为第二行数据要怎么操作，我这边修改代码没成功，麻烦麻烦