以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141364)

--  作者:ygg8310
--  发布时间:2019/9/27 15:25:00
--  这个代码
Dim Cols1() As String = {"品名","整数"} 
Dim Cols2() As String = {“品名”,"整数B"} 
For Each dr1 As DataRow In DataTables("表A").datarows
        Dim dr2 As DataRow = DataTables("表B").find("品名 = \'" & dr1("品名") & "\' And 500 =< \'" & dr1("整数B") & "\'")
        If dr2 Is Nothing
            dr2 = DataTables("表A").AddNew()
            For i As Integer = 0 To Cols1.Length -1
                dr2(Cols2(i)) = dr1(Cols1(i))
            Next
    End If
Next
老师能帮我修改一下吗?

--  作者:有点蓝
--  发布时间:2019/9/27 15:31:00
--  
DataTables("表B").find("品名 = \'" & dr1("品名") & "\' And 500 <= " & dr1("整数B"))
--  作者:ygg8310
--  发布时间:2019/9/27 15:36:00
--  
还是一样的,无法识别大于500的行。。。
--  作者:有点蓝
--  发布时间:2019/9/27 15:40:00
--  
上传实例说明
--  作者:ygg8310
--  发布时间:2019/9/27 16:11:00
--  
就是这个
--  作者:ygg8310
--  发布时间:2019/9/27 16:11:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
就这个

--  作者:有点蓝
--  发布时间:2019/9/27 16:22:00
--  
怎么测试?希望得到什么结果?
--  作者:ygg8310
--  发布时间:2019/9/27 16:24:00
--  
把表A中金额大于500的数据弄到表B
--  作者:有点蓝
--  发布时间:2019/9/27 16:38:00
--  
For Each dr1 As DataRow In DataTables("表A").Select("价格 >= 500")