以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]增加行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106147)
--  作者：苏州老街
--  发布时间：2017/9/3 13:20:00
--  [求助]增加行
老师，增加行时"Tables("入库.入库明细").Current("录入日期") = Tables("入库").Current("审核日期")"这段怎么不起作用。

If Tables("入库").Rows.Count = 0 Then
    Return
End If

Tables("入库.入库明细").AddNew()

Tables("入库.入库明细").Current("客户名称") = Tables("入库").Current("供应商")
Tables("入库.入库明细").Current("录入日期") = Tables("入库").Current("审核日期")
Tables("入库.入库明细").Current("录入人") = Tables("入库").Current("录入人")
--  作者：有点甜
--  发布时间：2017/9/3 13:23:00
--  

If Tables("入库").Rows.Count = 0 Then
    Return
End If


Dim nr As Row = Tables("入库.入库明细").AddNew()

msgbox(Tables("入库").Current("审核日期"))
nr("客户名称") = Tables("入库").Current("供应商")
nr("录入日期") = Tables("入库").Current("审核日期")
nr("录入人") = Tables("入库").Current("录入人")
--  作者：苏州老街
--  发布时间：2017/9/3 13:56:00
--  


图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/9/3 14:34:00
--  

 说明你获取的值有问题啊。看是不是表名写错。

 

 不会做上传实例。

 

msgbox(Tables("入库").Current("审核日期"))
--  作者：苏州老街
--  发布时间：2017/9/3 18:04:00
--  
老师，在入库窗口增加按钮中。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件夹.rar
--  作者：有点甜
--  发布时间：2017/9/3 18:21:00
--  
无语，代码没问题，你入库表的列没有值。
--  作者：苏州老街
--  发布时间：2017/9/3 19:48:00
--  
谢谢老师，不应该引用审核日期列。