下面红色代码可以计算出结果,但换在控件计算不出结果,为什么?
Dim tb As Table = Tables(e.Form.name & "_Table01")
Dim xfl As String = e.Form.Controls("cmb_xfl").text
Dim ndr As Row
For Each dc As Col In tb.Cols
If dc.Name = xfl Then
For i As Decimal = -2 To 1 Step 0.2
ndr = tb1.AddNew()
ndr("下浮点") = i
If i < 0 Then
'ndr("总个数") = tb.Compute("Count([开标日期])", "中标下浮率_风险控件价 >= " & i/100 & " And 中标下浮率_风险控件价 < " & (i+0.2)/100)
ndr("总个数") = tb.Compute("Count([开标日期])", "[xfl] >= " & i/100 & " And [xfl] < " & (i+0.2)/100)
ElseIf i > 0 Then
ndr("总个数") = tb.Compute("Count([开标日期])","[xfl] > " & (i-0.2)/100 & " And [xfl] <= " & i/100)
Else
ndr("总个数") = tb.Compute("Count([开标日期])","[xfl] = 0")
End If
Next
End If
Next