上传附件和图片方法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
比如:
Select Case e.DataCol.name
Case "天数","金额"
Dim m As Double = 0
If e.DataRow.isnull("天数") = False AndAlso e.DataRow.isnull("金额") = False AndAlso e.DataRow("天数") <> 0
m = e.DataRow.isnull("金额") / e.DataRow.isnull("天数")
End If
Dim d1 As Date = e.DataRow("开始日期")
Dim d2 As Date = e.DataRow("结算日期")
Do While d1 <= d2
Dim c As String = Format(d1,"yyyy_MM_dd")
If e.datacols.contains(c)
e.DataRow(c) = m
End If
d1 = d1.AddDays(1)
Loop
End Select