Select Case e.DataCol.name
Case "客户简称","月份"
e.DataRow("金4") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )
e.DataRow("金6") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )
e.DataRow("金8") = DataTables("账单明细").Compute("count(提单号码)","[客户简称]= '" & e.DataRow("客户简称") & "' And [月份]= '" & e.DataRow("月份") & "'" )
End Select
用这代码,3个列会同时填充,是否要加else,如何加?
此主题相关图片如下:1.png