求计算公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'DataColChanged事件代码
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "班组","出勤","装夹","效率"
        Select Case dr("班组")
            Case "A"
                dr("效率系数") = dr("效率") / 0.8
                dr("劳逸系数") = dr("装夹") / dr("出勤") / 0.35
            Case "B"
                dr("效率系数") = dr("效率") / 0.9
                dr("劳逸系数") = dr("装夹") / dr("出勤") / 0.25
            Case "C"
                dr("效率系数") = dr("效率") / 0.8
                dr("劳逸系数") = 1
        End Select
End Select

主题：求计算公式