Select Case e.D a t a C o l.Name
Case "合同金额"
Dim bmgs As String="422"
Dim bm As String = e.D a ta Row("项目编码")
msgbox("bm=" & bm)
Dim idx As Integer = 0
For i As Integer = 0 To bmgs.length-1
idx += val(bmgs(i))
msgbox("idx=" & idx)
If b m .length >= i d x Then
Dim s As String = b m .S u b String(0, i d x)
msgbox("s=" & s)
Dim f d r As D a t a R o w = e.D a t a T a b l e.find("项目编码 = '" & s & "'")
msgbox(fdr Is Not Nothing)
If f d r I s Not Nothing
Dim je As Decimal=e.DataTable.Compute("sum("& e.dataCol.name & ")", "项目编码 Like '" & s & "%' and 项目编码 <> '" & s & "'")
msgbox("je=" & je)
fdr(e.DataCol.name) =je
' fdr.Save
End If
End If
Next
'End If
End S e l e ct
加好友 
发短信
Post By：2019/6/17 9:07:00 [显示全部帖子]
