主题：tabular data stream (TDS) remote procedure call (RPC) protocol stream is incorrect

For Each dr2 As DataRow In dr2s

    Dim pnop As String = dr2("PartNumber") & "|" & dr2("OP")

    If d1.ContainsKey(pnop) Then

        Dim dr1 = d1(PNOp)

        'Output.Show(PNOP)

        If dr1("WO_2") > 0.5 Then '调试次数

            dr2("自去年来工序生产状态_次数") = dr1("WO_2")

            'Output.Show(pnop & "   " & dr1("WO_2"))

            Dim Sh As Single = Round2( (dr1("TotalMachineHours_2") - dr1("BREAKHours_2")) / dr1("WO_2") * 60, 0)

            If sh > 0 Then 

                If dr2("自去年来工序生产状态_平均每次调试分钟") <> Sh Then

                    dr2("自去年来工序生产状态_平均每次调试分钟") = Sh    '单精度小数

                    dr2.Save

                End If

            End If

        End If

        If dr1("WO_1") > 0.5 Then '运行数量

            dr2("自去年来工序生产状态_生产数量") = dr1("GOODQty_1")

            'Output.Show(pnop & "   " & dr1("GOODQty_1"))

            Dim Sh As Single = Round2((dr1("TotalMachineHours_1") - dr1("BREAKHours_1")) / dr1("GoodQty_1") * 60, 1)

            If Sh <> dr2("自去年来工序生产状态_单件平均工时单位") Then

                dr2("自去年来工序生产状态_单件平均工时单位") = Sh  '单精度小数

                dr2.Save

            End If

        End If 

    End If

Next

检查被除数>0.5 ,然后进行计算, 但还是报错