| 以文本方式查看主题 - 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") |