主题：[求助]取值问题

请各位老师帮忙看看，用数值做条件的取值问题，这样为什么不行：

For Each dr As Row In Tables("数据").Rows
    Dim h As DataRow=DataTables("标准").Find("下限>=" & dr("金额") & "and 上限<" & dr("金额"))
    If h IsNot Nothing Then '如果找到的话
        dr("标准")=h("标准")
    End If
Next

这样能取到值：

For Each dr As Row In Tables("数据").Rows
    Dim h As DataRow=DataTables("标准").Find("下限>=" & dr("金额"))
    If h IsNot Nothing Then '如果找到的话
        dr("标准")=h("标准")
    End If
Next

难到end不能用吗？