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


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

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

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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
[求助]从指定列中,获取不重复的值,以集合的形式返回GetUniqueValues,获得的统计结果列,如何使空值默认显示为0,还有统计表内的的货物类型列如何获得染料助剂录入表内货物类型列的内容?  发帖心情 Post By:2017/9/7 10:40:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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例子说明


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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2017/9/7 10:53:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
,甜老师,这是项目

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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2017/9/7 11:02:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

甜老师,这是我的项目,您给看看要如何使统计表的空值默认显示为0,还有就是统计表中的货物类别列内容如何获得
[此贴子已经被作者于2017/9/7 11:02:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()


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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2017/9/7 11:06:00 [只看该作者]

谢谢老师


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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2017/9/7 11:14:00 [只看该作者]

Dim nms As List(of String()) = DataTables("染料助剂录入").GetValues("货物类别|入账分类")
甜老师,这句代码提示GetValues不是DataTable的成员是怎么回事?

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


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

 升级到最新版foxtable。

 回到顶部