Foxtable(狐表)用户栏目专家坐堂 → [求助]从指定列中,获取不重复的值,以集合的形式返回GetUniqueValues,获得的统计结果列,如何使空值默认显示为0,还有统计表内的的货物类型列如何获得染料助剂录入表内货物类型列的内容?


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

主题:[求助]从指定列中,获取不重复的值,以集合的形式返回GetUniqueValues,获得的统计结果列,如何使空值默认显示为0,还有统计表内的的货物类型列如何获得染料助剂录入表内货物类型列的内容?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/7 10:43:00 [显示全部帖子]

1、用getValues

 

http://www.foxtable.com/mobilehelp/scr/0078.htm

 

2、取值的时候,如果为空,就转换成0

 

3、跨表引用 http://www.foxtable.com/webhelp/scr/1451.htm

 

4、上传具体foxtable例子说明


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/7 11:05:00 [显示全部帖子]

DataTables("染化料助剂库存盘点").DataRows.Clear()
Dim st As Date = Date.Now

Dim nms As List(of String()) = DataTables("染料助剂录入").GetValues("货物类别|入账分类")
Dim d1 As Date = Forms("染化料助剂库存盘点").Controls("StartDate").Value
Dim d2 As Date = Forms("染化料助剂库存盘点").Controls("EndDate").Value
DataTables("染化料助剂库存盘点").StopRedraw()
For Each nm() As String In nms
    Dim dr As DataRow = DataTables("染化料助剂库存盘点").AddNew()
    dr("货物类别") = nm(0)
    dr("入账分类") = nm(1)
   
   
    dr("已结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "' And 结算情况 = 1 And 结算日期 <= #" & d2 & "#")
    dr("未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'  And 结算情况 = 0 And 操作日期 <= #" & d2 & "#")
    dr("采购总数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)","货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'   And 操作日期 <= #" & d2 & "#")
   
   
    dr("本月结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'  And 结算日期 >= #" & d1 & "# And 结算日期 <= #" & d2 & "#")
    dr("本月领料数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'  And 操作日期 >= #" & d1 & "# And 操作日期 <= #" & d2 & "#")
   
    dr("上月未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'  And 结算情况 = 0  And 操作日期 < #" & d1 & "#")
    dr("本月未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "货物类别 = '" & nm(0) & "' and 入账分类= '" & nm(1) & "'  And 结算情况 = 0  And 操作日期 <= #" & d2 & "#")
    For Each dc As DataCol In dr.DataTable.DataCols
        If dc.IsNumeric AndAlso dr.Isnull(dc.name) Then
            dr(dc.name) = 0
        End If
    Next
Next

 

 

DataTables("染化料助剂库存盘点").ResumeRedraw()


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/7 11:18:00 [显示全部帖子]

 升级到最新版foxtable。

 回到顶部