以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新增内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130197)
--  作者：有点甜
--  发布时间：2019/1/15 17:39:00
--  

 

Tables("某表").current("采购申请号") = r("采购申请号")

 

具体问题上传实例说明。

 
--  作者：有点甜
--  发布时间：2019/1/15 17:56:00
--  
Forms("另一个窗口").Open()
Dim t As Table = Forms("另一个窗口").Controls("另一个table").Table
For Each r As Row In Tables("转采购订单_采购申请明细").GetCheckedRows
    Dim r2 As Row  = t.AddNew
    r2("材料编码") = r("材料编码")
    r2("材料描述") = r("材料描述")
    r2("规格型号") = r("规格型号")
    r2("采购人") = r("申请人")
    r2("采购日期") =  Date.Today
    r2("部门") = r("线别")
    r2("采购数量") = r("申请数量")
    r2("交货日期") = r("要求交货日期")
    r2("单位") = r("单位")
    r2("采购订单状态") = "进行中"
    r2("采购类型") = r("申请类型")
    r2("采购申请号") = r("采购申请号")
Next