刚才错了 是盘头_绩效的公式,公式如下
If VARS("XZBZ")=0 Then
Dim dr As DataRow = e.DataRow
If e.DataRow.IsNull("xbms") Then
dr("xbms")=0
End If
dr("yjcn") = 500*(dr("gzsj")*60-60-dr("ztjsj"))
dr("sjcn")=dr("ms")*dr("gs")+dr("xbms")-dr("sbms")
dr("jxcn")=500*(dr("sjcn")+dr("gs")*dr("js")*5+dr("tj_fscs")*dr("js")*10+dr("tj_jstggs")*dr("js")*0.15 +dr("tj_sxggs")*300)/dr("js")
dr("dcl")=dr("jxcn")/dr("yjcn")*100
end if