以文本方式查看主题 - 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 --
|
||||
-- 作者:有点蓝 -- 发布时间: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") |