主题：老师 求帮助

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

 你excel文件想表达什么？

 

 做foxtable的例子上来

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

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

呃，datacolchanged事件

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("加班工资", Nothing, f1)
        e.DataTable.ReplaceFor("加班工资", Nothing, f2)
       
        Dim fdr As DataRow = e.DataTable.Find(f1)
        If fdr IsNot Nothing Then
            fdr("加班工资") = sum
        End If
End Select