主题：数据

错误所在事件：表，盘头_绩效，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.OverflowException: 值对于 Decimal 太大或太小。

这个问题该如何解决  请各位大神帮忙查看下 谢谢！

dr("yjcn") = 500*(dr("gzsj")*60-60-dr("ztjsj"))

这个是其中的一个计算公式 ，参与计算的我全部设为高精度小数

好  我换成单精度小数试下看  谢谢

我现在是直接出现死循环了

是的  我现在数据一导就出现死循环了

下面是我导数据的代码，（盘头_入）库里的计算公式就是刚才发过的

VARS("XZBZ")=0
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "Select * From {盘头_入库}  Where js1=1 and sfyjs=0"
dt1 = cmd1.ExecuteReader()
Dim f As New Filler
f.SourceTable =dt1 '指定数据来源
f.SourceCols = "ptrkID,jth,rkrq,bc,czz,ylmc,ts,gs,ms,sbms,xbms,js" '指定数据来源列
f.DataTable = DataTables("盘头_绩效") '指定数据接收表
f.DataCols = "ptrkID,jth,rq,bc,czz,ylmc,ts,gs,ms,sbms,xbms,js" '指定数据接收列
f.Fill()
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "UPDATE {盘头_入库} SET js1=0,sfyjs=1 Where js1=1 and sfyjs=0"
cmd.ExecuteNonQuery()
DataTables ("盘头_入库").Load()

刚才错了  是盘头_绩效的公式,公式如下

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