好像比较不管用。请教
If e.DataCol.Name = "到期欠款" Or e.DataCol.Name = "到期欠款分类" Then
Dim t As Date
t = Date.Now
Dim d1,d2,d3,d4,d5 As Double
d1=IIF(e.DataRow("预付款应回日期") < t, e.DataRow("预付应到款") ,0)
d2=IIF(e.DataRow("货到款应回日期") < t, e.DataRow("货到应到款") ,0)
d3=IIF(e.DataRow("验收款应回日期") < t, e.DataRow("验收应到款") ,0)
d4=IIF(e.DataRow("其它款应回日期") < t, e.DataRow("其它应到款") ,0)
d5=IIF(e.DataRow("质保款应回日期") < t, e.DataRow("质保应到款") ,0)