| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码不会所有执行一次 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121564) |
| -- 作者：ZJZK2018 -- 发布时间：2018/7/9 15:14:00 -- 代码不会所有执行一次 老师你好： 为什么我点击后只能执行第一个代码“If fdr("最高有效报价") = True Then”，而下面的代码无法执行，我的需求是所有代码执行一次，如何调整？谢谢 Dim dr As DataRow = Tables("开标记录.标录明细").Current.DataRow Dim fdr As DataRow = DataTables("开标记录").Find("项目编号 = \'" & dr("项目编号") & "\'") Dim dts As List(Of DataRow) = DataTables("标录明细").Select("[项目编号] = \'" & dr("项目编号") & "\'And [有效报价] > 0 " ,"有效报价 DESC") If fdr IsNot Nothing Then If dts.Count > 0 Then If fdr("最高有效报价") = True Then dts(0)("评标状态") = "无效评标价" ElseIf fdr("次高有效报价") = True Then dts(1)("评标状态") = "无效评标价" ElseIf fdr("次低有效报价") = True Then dts(dts.Count - 2)("评标状态") = "无效评标价" ElseIf fdr("最低有效报价") = True Then dts(dts.Count - 1)("评标状态") = "无效评标价" End If End If End If |
| -- 作者：有点蓝 -- 发布时间：2018/7/9 15:32:00 -- 去掉else If fdr("最高有效报价") = True Then dts(0)("评标状态") = "无效评标价" If fdr("次高有效报价") = True Then dts(1)("评标状态") = "无效评标价" If fdr("次低有效报价") = True Then dts(dts.Count - 2)("评标状态") = "无效评标价" If fdr("最低有效报价") = True Then dts(dts.Count - 1)("评标状态") = "无效评标价" End If |
| -- 作者：ZJZK2018 -- 发布时间：2018/7/9 15:45:00 -- 谢谢 |