主题：老师 求帮助

我想比较两个数的大小 后 取 小的数进行计算后填入  怎么做？

Dim n1 As Double = 123
Dim n2 As Double = 456
Dim n As Double = Math.Max(n1, n2)
msgbox(n)

我想做这样一个表  公式在表里面  老师 用什么 方法做呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资.xls

加班工资的 有点麻烦  最后是比较两天的数值的

要比较那个数值小   取值后乘以一个系数

 你excel文件想表达什么？

 

 做foxtable的例子上来

 做具体的foxtable例子上，说明运算规则。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:工资管理.table

 

课时明细表中的加班工资栏

  取数是比较星期六和星期天哪天的合计工资小（6日（星期六）和7日（星期天））比较那天的工资金额小 （取小的）  则乘以0.8 的数计入加班工资

 比如6日是75+50=125  7日是50+50=100   这样就取100元乘以0.8 = 80元填入加班工资 

 

 

谢谢

Select Case e.DataCol.Name
    Case "单价", "人数"
        Dim wd As Integer = Cdate(e.DataRow("日期")).DayOfWeek
        Dim d1,d2 As Date
        If wd = 6 Then
            d1 = e.DataRow("日期")
            d2 = d1.addDays(1)
        Else
            d1 = e.DataRow("日期").AddDays(-1)
            d2 = e.DataRow("日期")
        End If
        Dim f1 As String = "老师姓名='" & e.DataRow("老师姓名") & "' and 日期 = '" & d1 & "'"
        Dim f2 As String = "老师姓名='" & e.DataRow("老师姓名") & "' and 日期 = '" & d2 & "'"
        Dim sum1 As Double = e.DataTable.Compute("sum(课时费)",f1)
        Dim sum2 As Double = e.DataTable.Compute("sum(课时费)",f2)
        Dim sum As Double
        If sum1 > sum2 Then
            sum = sum2 * 0.8
        Else
            sum = sum1 * 0.8
        End If
        e.DataTable.ReplaceFor("加班工资", sum, f1)
        e.DataTable.ReplaceFor("加班工资", sum, f2)
End Select

错误的

此主题相关图片如下：qq图片20150703175741.png