以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 数据更新公式哪里出错?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179766)

--  作者:wusim
--  发布时间:2022/9/8 7:19:00
--  [求助] 数据更新公式哪里出错?
数据更新公式哪里出错?  谢谢
有两个内部表,一个表 A  字段包含“出厂编号、报告状态”   一个表B  字段包含“出厂编号、报告状态”   现在要求当表A与表B "出厂编号"相同时,更新表A的“报告状态”字段与表B“报告状态”一致,如一样不用更新

如:表A  出厂编号、报告状态
                 1

      表B  出厂编号、报告状态
                 1           完成

更新后 
 
        表A   出厂编号、报告状态
                     1           完成

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("出厂编号 \'" & dr("出厂编号") & " \'")
    If fdr IsNot Nothing Then
        dr("报告状态") = fdr("报告状态")
    End If
Next
[此贴子已经被作者于2022/9/8 7:19:57编辑过]

--  作者:有点蓝
--  发布时间:2022/9/8 8:41:00
--  
Dim fdr As DataRow = dt2.Find("出厂编号 = \'" & dr("出厂编号") & "\'")
--  作者:wusim
--  发布时间:2022/9/9 7:14:00
--  
如果表B 有字段“检验日期”,怎样做到只更新最后检验日期的报告状态?
   
  如:  表B    出厂编号      报告状态       检验日期
                      1               确认             2022/05/01
                       1               完成                2022/06/01

表A更新后          出厂编号      报告状态      
                            1               完成 


--  作者:有点蓝
--  发布时间:2022/9/9 8:50:00
--  
http://www.foxtable.com/webhelp/topics/0396.htm

Dim fdr As DataRow = dt2.Find("出厂编号 = \'" & dr("出厂编号") & "\'","检验日期 desc")