老师你好:为什么我点击后只能执行第一个代码“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