主题：一段神奇的错误

  If Tables("委外退货单_t1").GetCheckedRows.count>0 Then
        Dim tr As Row=t.addnew
        MessageBox.show(Tables("委外退货单_t1").GetCheckedRows.count)
        tr("供应商编号")=Tables("委外退货单_t1").GetCheckedRows(0)("供应商编号")
        MessageBox.show(Tables("委外退货单_t1").GetCheckedRows.count)
        For Each r As Row In Tables("委外退货单_t1").GetCheckedRows
            Dim dr As DataRow=DataTables("委外退货明细").find("回收流水号='" & r("_identify") & "' and  委外退货单号='" & Tables("委外退货单").current("委外退货单号") & "'")
            If dr Is Nothing Then
                Dim rr As Row=Tables("委外退货单.委外退货明细").AddNew
                rr("工单号")=r("工单号")
                rr("委外流水号")=r("_identify")
                rr("印件")=r("印件")
                rr("工序")=r("工序")
                If e.Form.Controls("cbk").checked=True
                    rr("退货数量")=r("已回收数量")-r("已退货数量")
                End If
                rr("单价")=r("单价")
                rr("加工规格")=r("加工规格")
                rr("单位")=r("单位")
                rr("产品名称")=r("产品名称")
            Else
                MessageBox.show("同一来源单据不能在同一回收单中分开编辑!","A5数据管理平台")
                Return
            End If
        Next
        e.Form.Controls("TabControl2").Selectedindex=0
    Else
        MessageBox.show("没有选中任何明细!")
    End If


代码如上


第一个messagebox的结果是x 到第二个都变成0 然后后面代码都不执行

 有没有大神能看出哪里出问题了  搞了一下午找不出毛病

 已经将tr("供应商编号")赋值的相关代码注释掉了 删除了bin目录 问题还是没有解决

导出代码把所有的相关代码都注释掉了 终于找到问题  感谢老师 顺便吐糟下ft调试功能 效率有点低啊