以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160160)
--  作者：seal51
--  发布时间：2021/1/22 17:22:00
--  导入问题
有个产品表， 产品表里有个已完成列，将产品表的产品A导入到入库表后，产品表里产品A的已完成列自动打勾，如何实现？
--  作者：有点蓝
--  发布时间：2021/1/22 17:32:00
--  
怎么导的？加一句代码给完成列赋值true不就行了
--  作者：seal51
--  发布时间：2021/1/22 17:35:00
--  
If Tables("导入采购明细_采购明细表").rows.Count > 0 Then
    
    For Each r1 As Row In Tables("导入采购明细_采购明细表").GetCheckedRows
        Dim  r2 As Row = Tables("入库单.入库明细单").AddNew
        r2("采购单号") = r1("采购单号")
        r2("产品ID") = r1("产品ID")
        r2("入库数量") = r1("未入数量")
        r2("单价") = r1("采购含税单价")      
    Next
    e.Form.close
Else
    MessageBox.Show("该采购单无未下单项!")
End If
--  作者：seal51
--  发布时间：2021/1/23 8:58:00
--  
不知道如何定位
--  作者：有点蓝
--  发布时间：2021/1/23 9:03:00
--  
        r2("单价") = r1("采购含税单价")    
r1("完成")    =true
    Next
    e.Form.close
--  作者：seal51
--  发布时间：2021/1/23 9:16:00
--  
这么简单，搞了半天，谢谢版主！
--  作者：seal51
--  发布时间：2021/1/23 9:32:00
--  
那么如果库存表里删除这个数据，那么采购明细表了的完成列如何等于FALSE?
--  作者：有点蓝
--  发布时间：2021/1/23 10:00:00
--  
到库存表DataRowDeleting事件：http://www.foxtable.com/webhelp/topics/0633.htm

使用find找到采购明细表对应的单号的行，设置完成列