刚才错了 是盘头_绩效的公式,公式如下
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