| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]匹配公式怎样修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186373) |
| -- 作者：wusim -- 发布时间：2023/4/25 8:45:00 -- [求助]匹配公式怎样修改 想匹配出厂编号、出厂日期的年份则更新报告壮态，怎样修改 Dim dt1 As DataTable = DataTables("固定平台") Dim dt2 As DataTable = DataTables("平台报告") For Each dr As DataRow In dt1.Select("") Dim fdr As DataRow = dt2.Find("出厂编号 = \'" & dr("出厂编号") & "\' and Format(e.DataRow("出厂日期"),"yyyy") = \'" &
Format(e.DataRow(dr ("出厂日期"),"yyyy") & "\'","检验日期 desc") If fdr IsNot Nothing Then dr("报告状态") = fdr("报告状态") End If Next |
| -- 作者：有点蓝 -- 发布时间：2023/4/25 8:59:00 -- 参考：http://www.foxtable.com/webhelp/topics/2720.htm Dim y As Integer = dr ("出厂日期").year \'指定年份 Dim dt1 As New Date(y, 1, 1) Dim dt2 As New Date(y, 12, 31) Dim fdr As DataRow = dt2.Find("出厂编号 = \'" & dr("出厂编号") & "\' and 出厂日期 >= #" & dt1 & "# And 出厂日期 <= #" & dt2 & "#","检验日期 desc")
|