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

1、思路有问题，应该分两个表做的。

2、

static flag As Boolean = True
Select Case e.DataCol.Name
    Case "手动两驱基本型","手动两驱标准型","手动两驱舒适型""自动两驱标准型""自动两驱舒适型""自动两驱豪华型"
        Dim idx As Integer = Tables("B20A").FindRow(e.DataRow)
        If idx < 7 Then
            If flag Then
                'Dim drs As List(Of DataRow) = e.DataTable.Select("", "_Sortkey")
                'If drs.Count >= 7 Then
                'e.DataTable.DataCols("手动两驱基本型").RaiseDataColChanged("_Sortkey > " & drs(7)("_Identify"))
                'End If
                flag = False
                e.DataTable.DataCols("手动两驱基本型").RaiseDataColChanged()
                flag = True
            End If
        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("自动两驱豪华型")
            r1 = Tables("B20A").Rows(1)
            e.DataRow("生产计划_2") = r1("手动两驱基本型") * e.DataRow("手动两驱基本型") + r1("手动两驱标准型") * e.DataRow("手动两驱标准型") + r1("手动两驱舒适型") * e.DataRow("手动两驱舒适型")+r1("自动两驱标准型") * e.DataRow("自动两驱标准型")+r1("自动两驱舒适型")* e.DataRow("自动两驱舒适型")+r1("自动两驱豪华型") * e.DataRow("自动两驱豪华型")
        End If
End Select

 做一个表保存1-7行的数据，做一个表保存填写的数据。

 这样好管理

 参考    http://www.foxtable.com/help/topics/1453.htm