主题：多个字段都是根据原始几个字段计算得出的结果

Dim  MR As DataRow = e.DataRow

If CStr(e.newvalue) <> CStr(e.oldvalue) Then

    'If MR("工艺单号") <> "" Then

    If MR("下机长缩率手输") Then

        MR("下机长缩率") = iif(MR("下机长缩率") = 0 ,0.97,MR("下机长缩率"))

    Else

        MR("下机长缩率") = format (getxjcsl( getszcs( MR("毛纱纱支")),zzv(MR("毛经组织")),MR("筘号"),MR("变换牙")) ,"0.000")

    End If

    If MR("下机宽缩率手输") Then

        MR("下机宽缩率") = iif(MR("下机宽缩率") = 0 ,0.94,MR("下机宽缩率"))

    Else

        MR("下机宽缩率") = format (getxjksl( getszcs( MR("毛纱纱支")),zzv(MR("毛经组织")),MR("筘号"),MR("变换牙")) ,"0.000")

    End If

    If MR("下水长缩率手输") Then

        MR("下水长缩率") = iif(MR("下水长缩率") = 0 ,0.97,MR("下水长缩率"))

    Else

        MR("下水长缩率") = format (getxscsl( getszcs( MR("毛纱纱支")),zzv(MR("毛经组织")),MR("筘号"),MR("变换牙"),MR("下机长缩率"), MR("下机宽缩率") , MR("色织"), MR("下水"),True),"0.000")

    End If

    If MR("下水宽缩率手输") Then

        MR("下水宽缩率") = iif(MR("下水宽缩率") = 0 ,0.90,MR("下水宽缩率"))

    Else

        MR("下水宽缩率") = format (getxsksl( getszcs( MR("毛纱纱支")),zzv(MR("毛经组织")),MR("筘号"),MR("变换牙"), MR("下水")) ,"0.000")

    End If

    If MR("缎裆停卷手输") Then

        MR("缎裆停卷") = iif(MR("缎裆停卷") = 0 ,1,MR("缎裆停卷"))

    Else

        MR("缎裆停卷") = IIF(MR("缎纬纱支") = "21S/2",2,0 )  +  IIF(MR("缎纬纱支") = "32S/2" ,3,0)

    End If

    If MR("开数手输") Then

        MR("开数") = iif(MR("开数") = 0 ,1,MR("开数"))

    Else

        MR("开数") = 1

    End If

    

    MR("成品中毛长") = MR("成品全长") - MR("成品平布长") * 2  - MR("成品缎裆长")

    

    MR("下水中毛长") = MR("成品中毛长")

    MR("下水缎裆长") = MR("成品缎裆长")

    MR("下水平布长") = MR("成品平布长") * iif(MR("成品平布长") >=1.5,2.9,3)

    MR("下水全长") = MR("下水中毛长") +  MR("下水平布长") * 2 +  MR("下水缎裆长")

    

    MR("下机中毛长") = format(MR("下水中毛长") / MR("下水长缩率"),"0.0")

    MR("下机缎裆长") = format(MR("下水缎裆长") / MR("下水长缩率"),"0.0")

    MR("下机平布长") = format(MR("下水平布长") / MR("下水长缩率"),"0.0")

    MR("下机全长") = MR("下机中毛长") +  MR("下机平布长") * 2 +  MR("下机缎裆长")

    

    MR("在机中毛长") = format(MR("下机中毛长") / MR("下机长缩率"),"0.0")

    MR("在机缎裆长") = format(MR("下机缎裆长") / MR("下机长缩率"),"0.0")

    MR("在机平布长") = format(MR("下机平布长") / MR("下机长缩率"),"0.0")

    MR("在机全长") = MR("在机中毛长") +  MR("在机平布长") * 2 +  MR("在机缎裆长")

    

    MR("在机中毛宽") = format(MR("中毛齿") / MR("筘号") * 5.08,"0.0")

    MR("在机平布外宽") = format(MR("平布外齿") / MR("筘号") * 5.08,"0.0")

    MR("在机全宽") = MR("在机中毛宽") + MR("在机平布外宽") * 2

    

    MR("下机中毛宽") = format(MR("在机中毛宽") * MR("下机宽缩率"),"0.0")

    MR("下机平布宽") = format((MR("在机平布外宽") - 0.3) * MR("下机宽缩率"),"0.0")

    MR("下机全宽") = MR("下机中毛宽") +  MR("下机平布宽") * 2

    

    MR("下水中毛宽") = format(MR("下机中毛宽") * MR("下水宽缩率"),"0.0")

    MR("下水平布宽") = format(MR("下机平布宽") * MR("下水宽缩率"),"0.0")

    MR("下水全宽") = Format(MR("下水中毛宽") +  MR("下水平布宽") * 2,"0.0")

    

    MR("成品中毛宽") = format(MR("成品全宽") - MR("成品平布宽") * 2,"0.0")

    

    MR("中毛碰数") = format(MR("变换牙") / 7.92 * MR("在机中毛长"),"0")

    MR("平布碰数") = format(MR("变换牙") / 7.92 * MR("在机平布长"),"0")

    MR("缎裆碰数") = Format(MR("变换牙") / 7.92 * MR("在机缎裆长") * (MR("缎裆停卷") + 1),"0")

    

    MR("制成率") = iif(MR("割绒"),0.8457,1) * iif(MR("下水"),0.94,1)

    MR("下机克数") = Format(MR("成品克数") / MR("制成率"), iif(MR("成品克数")>=100,"0","0.0"))

    

    MR("经纱实际纱支") = getsysteminfo( "生产实用纱支",MR("经纱纱支"),MR("经纱纱支"))

    MR("经纱预加工") = iif( MR("色织") = True ,"染色", "无")

    MR("经纱千米重") = format(getszqmz( MR("经纱实际纱支"),MR("经纱预加工")),"0.000")

    MR("经纱米数") = format(MR("在机全长") * (MR("中毛齿") * zzv( MR("底经组织") ) +  MR("平布外齿") * 4) / 100 ,"0.00")

    MR("经纱克数") = Format(MR("经纱米数") * MR("经纱千米重") / 1000 , "0.00")

    

    MR("纬纱实际纱支") = getsysteminfo( "生产实用纱支",MR("纬纱纱支"),MR("纬纱纱支"))

    MR("纬纱预加工") = iif( MR("色织") = True ,"染色", "无")

    MR("纬纱千米重") = format(getszqmz( MR("纬纱实际纱支"),MR("纬纱预加工")),"0.000")

    MR("纬纱米数") = Format(MR("在机全宽") *( MR("中毛碰数") + MR("平布碰数") * 2) * 3 / 100 ,"0.00")

    MR("纬纱克数") = Format(MR("纬纱米数") * MR("纬纱千米重") / 1000 , "0.00")

    

    MR("缎纬实际纱支") = getsysteminfo( "生产实用纱支",MR("缎纬纱支"),MR("缎纬纱支"))

    MR("缎纬预加工") = iif( MR("色织") = True ,"染色", "无")

    MR("缎纬千米重") = format(getszqmz( MR("缎纬实际纱支"),MR("缎纬预加工")),"0.000")

    MR("缎纬米数") = format(MR("在机全宽") * MR("缎裆碰数") * 3 / 100,"0.00")

    MR("缎纬克数") = Format(MR("缎纬米数") * MR("缎纬千米重") / 1000 , "0.00")

    

    MR("毛纱实际纱支") = getsysteminfo( "生产实用纱支",MR("毛纱纱支"),MR("毛纱纱支"))

    MR("毛纱预加工") = iif( MR("色织") = True ,"染色", iif( MR("毛纱纱支") = "16S" ,"上浆","无"))

    MR("毛纱千米重") = format(getszqmz( MR("毛纱实际纱支"),MR("毛纱预加工")),"0.000")

    MR("毛纱克数") = MR("下机克数") - MR("经纱克数") - MR("纬纱克数") - MR("缎纬克数")

    MR("毛纱米数") = Format(MR("毛纱克数") / MR("毛纱千米重") * 1000 , "0.00")

      

    'End If

End If