主题：求助

1、第三列记得改为双精度小数型。

2、将表事件DataColChand事件代码设置为：

Select Case e.DataCol.name
    Case "第一列","第二列"
        If e.DataRow.IsNull("第一列") Then '如果没有输入日期
            e.DataRow("第三列") = Nothing
        Else
            Dim dt As Date = e.DataRow("第一列") '获得输入的日期
            If dt.Month > 8 Then
                e.DataRow("第三列") =  e.DataRow("第二列") * 0.06
            Else
                e.DataRow("第三列") =  e.DataRow("第二列") * 0.056
            End If
        End If
End Select