以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  申请表和审核表的审核状态  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105344)
--  作者：cd_tdh
--  发布时间：2017/8/17 13:44:00
--  申请表和审核表的审核状态

老师，我弄了一个申请表，一个审核表，两个表都有审核状态，被自己搅晕了，不知道怎么弄了？

申请表保存当前行时，申请表的部分信息自动添加到审核表，包括审核状态，状态为：待审核，

审核表审核时，初审结束，审核表的审核状态为：已初审，复审结束，审核表的审核状态为：已复审。

现在需要把审核表的审核状态与申请表的审核状态同步。

两个表是通过发票号码关联的。

[此贴子已经被作者于2017/8/17 13:48:45编辑过]
--  作者：有点甜
--  发布时间：2017/8/17 14:55:00
--  

If e.datacol.name = "审核状态" Then

    DataTables("申请表").ReplaceFor("审核状态", e.newvalue, "发票号码 = \'" & e.DataRow("发票号码") & "\'")

End if

 
--  作者：cd_tdh
--  发布时间：2017/8/17 15:12:00
--  

老师，我这样写有没问题？

If e.DataCol.Name = "审核状态" AndAlso e.DataRow("审核状态") <>"已提交" AndAlso e.DataRow("审核状态") <>"待审核" Then
    Tables("进项票审核.进项票录入").current("审核状态")=Tables("进项票审核").current("审核状态")
Else
End If
--  作者：有点甜
--  发布时间：2017/8/17 15:46:00
--  

你3楼的代码有问题，改成2楼那种。
--  作者：cd_tdh
--  发布时间：2017/8/22 16:44:00
--  

有点甜老师，我另外一个关联表，审核表同步更新到关联表的申请表的“实际支付金额”下面这样写，有什么问题呢？

If e.DataCol.name = "实际支付金额" Then
    Dim fdr As DataRow = DataTables("工程款申请").Find("_Identify = " & e.DataRow("临时列"))
    If fdr IsNot Nothing Then
        fdr("实际支付金额") = e.DataRow("实际支付金额")
    End If
End If
--  作者：有点甜
--  发布时间：2017/8/22 16:54:00
--  

回复5楼，代码应该是没问题的。

 

你现在遇到什么错误？
--  作者：cd_tdh
--  发布时间：2017/8/22 16:58:00
--  
申请表里面的实际申请金额不更新。
--  作者：有点甜
--  发布时间：2017/8/22 17:55:00
--  
你临时列的值，存放的是 _Identify 的值吗？对比一下两列的数据
 
新增一个同名的整数型表达式列，表达式设为：[_Identify]，这样可以看到值
--  作者：cd_tdh
--  发布时间：2017/8/22 22:44:00
--  
值是一样的，我审核表的数据是通过跨表引用的申请表的数据，_Identify和临时列数据是对应的。
--  作者：有点蓝
--  发布时间：2017/8/22 22:48:00
--  
上实例测试