以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  一段神奇的错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92494)

--  作者：rjh4078 --  发布时间：2016/11/4 20:24:00 --  一段神奇的错误   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 然后后面代码都不执行

--  作者：rjh4078 --  发布时间：2016/11/4 20:45:00 --    有没有大神能看出哪里出问题了  搞了一下午找不出毛病

--  作者：有点蓝 --  发布时间：2016/11/5 8:46:00 --   tr("供应商编号")赋值有没有触发其它的事件 代码测试没有问题删除项目里bin目录重启项目试试 [此贴子已经被作者于2016/11/5 8:46:45编辑过]

--  作者：rjh4078 --  发布时间：2016/11/5 20:56:00 --    已经将tr("供应商编号")赋值的相关代码注释掉了 删除了bin目录 问题还是没有解决

--  作者：rjh4078 --  发布时间：2016/11/5 21:06:00 --   导出代码把所有的相关代码都注释掉了 终于找到问题  感谢老师 顺便吐糟下ft调试功能 效率有点低啊