- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何提取库存现金的对方科目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188360)
-- 发布时间：2023/9/15 19:40:00
-- 如何提取库存现金的对方科目
想从凭证明细表的总账科目中提取库存现金的对方科目到明细账的对方科目
窗口1中的填充按钮已经提取了总账科目中的库存现金，但与库存现金互为借贷关系的科目不知怎样提取到明细账中。
明细表中库存现金的对方科目我用手工填上了，如何自动填充？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2023/9/16 8:44:00
--
还是使用Find根据关联的数据查询。填充后遍历明细账，逐行查询出关联的科目
-- 发布时间：2023/9/16 21:07:00
--
对我来说有点难。
对方科目也在总账科目列，凭证号相同，借贷相反
-- 发布时间：2023/9/17 20:18:00
--
他们根据什么关联起来？
-- 发布时间：2023/9/17 21:03:00
--
比如我从凭证明细表中提取总账列的库存现金到明细账表，那么库存现金的对方科目我用手工填写在了明细账表中，比如银行存款等，它与库存现金的关系是，它们在凭证明细表中的凭证编号相同，借贷相反，都在总账科目列
重新整理了示例
-- 发布时间：2023/9/17 21:29:00
--
那就根据凭证编号去查呀，借贷相反那就判断，如果当前行有借方金额，就去查有贷方金额的行，大概
dim r as row = tabels("明细账").current
if r.isnull("借方金额") then
dim dr as datarow = datatables("凭证明细").find("凭证编号=\'" & r("凭证编号") & "\' and 借方金额 is not null")
if dr isnot nothing then
r("对方科目") = dr("总账科目")
end if
else
dim dr as datarow = datatables("凭证明细").find("凭证编号=\'" & r("凭证编号") & "\' and 贷方金额 is not null")
if dr isnot nothing then
r("对方科目") = dr("总账科目")
end if
end if
-- 发布时间：2023/9/18 10:27:00
--
是这样的，谢谢。