Foxtable(狐表)用户栏目专家坐堂 → 加条件问题


  共有2322人关注过本帖树形打印复制链接

主题:加条件问题

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1346 积分:8887 威望:0 精华:0 注册:2020/11/4 22:15:00
加条件问题  发帖心情 Post By:2023/8/25 10:45:00 [显示全部帖子]

表A的字段:单号,料号,品名,数量,日期,审核

下面代码,是否可以加条件,按表A的a.审核='未审核' and a.审核='',开始日期、结束日期,表A数量=SUM(表A数量)?
Dim Vals3 As List(Of String())
Vals3 = DataTables("表A").GetValues("单号|料号|品名|数量")'
For r As Integer = 0 To Vals3.Count - 1
    Dim dr3 As DataRow = DataTables("表D").find("订单单号='" & Vals3(r)(0) & "'and 产品编号='" & Vals3(r)(1) & "'")'
    If dr3 Is Nothing Then
        dr3 = DataTables("表D").AddNew()'接收表
        dr3("单号") = Vals3(r)(0)'
        dr3("料号") = Vals3(r)(1)'
        dr3("品名") = Vals3(r)(2)'
        dr3("表A数量") = Vals3(r)(3)'
        
    End If
    dr3("单号") = Vals3(r)(0)'
    dr3("料号") = Vals3(r)(1)'
    dr3("品名") = Vals3(r)(2)'
    dr3("表A数量") = Vals3(r)(3)'
   
Next


 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1346 积分:8887 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/8/25 16:30:00 [显示全部帖子]

Dim Vals3 As List(Of String())
Vals3 = DataTables("表A").GetValues("单号|料号|品名|数量","[审核]<> '已审核' ")'
For r As Integer = 0 To Vals3.Count - 1
    Dim dr3 As DataRow = DataTables("表D").find("订单单号='" & Vals3(r)(0) & "'and 产品编号='" & Vals3(r)(1) & "'")'
    If dr3 Is Nothing Then
        dr3 = DataTables("表D").AddNew()'接收表
        dr3("单号") = Vals3(r)(0)'
        dr3("料号") = Vals3(r)(1)'
        dr3("品名") = Vals3(r)(2)'
        dr3("表A数量") = Vals3(r)(3)'
        
    End If
    dr3("单号") = Vals3(r)(0)'
    dr3("料号") = Vals3(r)(1)'
    dr3("品名") = Vals3(r)(2)'
    dr3("表A数量") = Vals3(r)(3)'
   
Next
问题一:执行上面代码,只显示"单号、数量的数据,没有"单号|料号|品名|数量,是什么问题?
问题二:需求的条件是取表A的审核列不是已审核的数据,表A的审核列有已审核、未审核、空值,下面代码无法实现

Vals3 = DataTables("表A").GetValues("单号|料号|品名|数量","[审核]<> '已审核' ")'
Vals3 = DataTables("表A").GetValues("单号|料号|品名|数量","[审核]<> '已审核'AND [审核]<> ''")'

问题三:蓝色代码二个写法都一样,是一样的意思?


 回到顶部