主题：求助

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

点击浏览该文件:管理项目1.rar

 

如附件，请问下在第一列日期早于8月31号时，刚第三列等于二列*0.056，否则等于第二列*0.06，怎么写啊

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

 表达式就比较麻烦了，要嵌套，希望能看懂。

IIF(SubString(Convert([第一列],'System.String'),6,IIF(SubString(Convert([第一列],'System.String'),7,1) In ('-','/'),1,2)) <= 8 And SubString(Convert([第一列],'System.String'),IIF(SubString(Convert([第一列],'System.String'),7,1) In ('-','/'),8,9),2) <= 31, [第二列] * 0.056, [第二列] * 0.06)

代码是直接贴在表达式函数那个框里面吗？代码我贴上去回应说：“代码错误，case运算符后缺少操作数”

表达式贴上去了，成功了。