Foxtable(狐表)用户栏目专家坐堂 → excel报表格式转换的方法


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

主题:excel报表格式转换的方法

帅哥,在线噢!
有点蓝
  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/6 14:28:00 [只看该作者]

GetValues(ColumnName,Filter,Sort)

ColumnName:列名称,从此列中提取不重复的值。
Filter:     可选参数,指定一个条件表达式,只返回符合此条件的值;请参考表达式的运算符和函数 和 条件表达式
Sort:       可选参数,指定排序列,如果省略,则根据取值列排序,通常无需设置。



SQLGetComboListString(ColumnName,Filter, Sort)

ColumnName:列名称,从此列中提取不重复的值。
Filter:     可选参数,指定一个条件表达式,只返回符合此条件的值。
Sort:       可选参数,指定排序列,如果省略,则根据取值列排序,通常无需设置。


 回到顶部
帅哥,在线噢!
evolymft
  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 14:34:00 [只看该作者]

我在8楼的代码里加入了SORT排序,生成的表格里面只有菜名,没有后面的材料数量单位。

 回到顶部
帅哥,在线噢!
有点蓝
  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/6 14:37:00 [只看该作者]

代码呢?加了什么代码,完整发上来看看
[此贴子已经被作者于2019/12/6 14:37:28编辑过]

 回到顶部
帅哥,在线噢!
evolymft
  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 16:44:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计") dtb.AddDef("日期", Gettype(DateTime)) dtb.AddDef("早餐", Gettype(String), 500) dtb.AddDef("午餐", Gettype(String), 500) dtb.AddDef("晚餐", Gettype(String), 500) dtb.AddDef("加餐", Gettype(String), 500) dtb.Build() Dim dt As DataTable = DataTables("统计") For Each ds As String In DataTables("供餐明细").GetValues("日期") Dim d As Date = cdate(ds) Dim dr As DataRow = dt.AddNew dr("日期") = d For Each cb As String In DataTables("供餐明细").GetValues("餐别","日期=#" & d & "#") Dim str As String = "" For Each cm As String In DataTables("供餐明细").GetValues("菜名","日期=#" & d & "# and 餐别='" & cb & "'","[_sortkey]") Dim s2 As String = DataTables("供餐明细").SQLGetComboListString("材料 & 数量 & 单位","日期=#" & d & "# and 餐别='" & cb & "' and 菜名='" & cm & "'","[_sortkkey]") str = str & vbcrlf & cm & ": " & s2.Replace("|",",") Next str = str.Trim(vbcr,vblf) dr(cb) = str Next Next Tables("统计").AutoSizeRows MainTable = Tables("统计")

 回到顶部
帅哥,在线噢!
evolymft
  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 16:45:00 [只看该作者]

,"[_sortkkey]",加入的内容。

 回到顶部
帅哥,在线噢!
evolymft
  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 16:47:00 [只看该作者]

发了两个相同的,"[_sortkkey]"内容,加第一个不会出错,加第二个就会出现导不出材料数量单位的现象。

 回到顶部
帅哥,在线噢!
evolymft
  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 16:50:00 [只看该作者]

就是在八楼的代码中加入了两个,"[_sortkkey]"。

 回到顶部
帅哥,在线噢!
有点蓝
  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/6 17:02:00 [只看该作者]

看花眼
[此贴子已经被作者于2019/12/6 22:17:26编辑过]

 回到顶部
帅哥,在线噢!
evolymft
  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 21:21:00 [只看该作者]

老师,上面的示例第一参数是菜名,第二参数是筛选日期和餐别,第三参数是排序。

 回到顶部
帅哥,在线噢!
evolymft
  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1023 积分:7160 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2019/12/6 21:24:00 [只看该作者]

Dim s2 As String = DataTables("供餐明细").SQLGetComboListString("材料 & 数量 & 单位","日期=#" & d & "# and 餐别='" & cb & "' and 菜名='" & cm & "'","[_sortkkey]") 就是这一句,加了第三参数就出现问题。

 回到顶部