Foxtable(狐表)用户栏目专家坐堂 → 新增内容


  共有2169人关注过本帖树形打印复制链接

主题:新增内容

帅哥哟,离线,有人找我吗?
nuoyan88
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
新增内容  发帖心情 Post By:2019/1/15 17:37:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/15 17:39:00 [只看该作者]

 

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

 

具体问题上传实例说明。

 


 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2019/1/15 17:47:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部