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("项目编码")
Dim idx As Integer = 0
For i As Integer = 0 To bmgs.length-1
idx += val(bmgs(i))
If b m .length >= i d x Then
Dim s As String = b m .S u b String(0, i d x)
Dim f d r As D a t a R o w = e.D a t a T a b l e.find("项目编码 = '" & s & "'")
If f d r I s Not Nothing
Dim je As Decimal=e.DataTable.Compute("sum("& e.dataCol.name & ")", "项目编码 Like '" & s & "%' and 项目编码 <> '" & s & "'")
fdr(e.DataCol.name) =je
' fdr.Save
End If
End If
Next
'End If
End S e l e ct
录入结束后按回来数据会变为零
此主题相关图片如下：1.png
[此贴子已经被作者于2019/6/16 13:06:33编辑过]
加好友 
发短信
Post By：2019/6/15 21:45:00 [只看该作者]
