以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 新增内容 (http://foxtable.net/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 |