Foxtable(狐表)用户栏目专家坐堂 → 递归函数之后的统计问题


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

主题:递归函数之后的统计问题

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/1/22 10:33:00 [只看该作者]

大红袍老师,你看:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
讲下面的代码在命令窗口中运行:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档 (3).txt

出现这样的错误:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160122102922.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/22 10:38:00 [只看该作者]

先判断有没有数据

 

Dim fdr As DataRow = DataTables("VIP推荐人奖金明细").find("一级推荐人卡号 is not null")
If fdr Is Nothing Then
    msgbox("一级推荐人不存在")
    Return
End If


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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/1/22 10:55:00 [只看该作者]

大红袍老师,我输入数据之后还是出现同样的问题,您可以试一下,数据是在远程数据库里,你那里也会有。。。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160122105308.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/1/22 11:00:00 [只看该作者]

这句代码貌似没问题啊:
Dim dt1 As fxDataSource
bd1.FromServer = True
bd1.Groups.AddDef("一级推荐人卡号","推荐人卡号") '根据型号分组
bd1.Totals.AddDef("一级推荐人奖金","一级推荐奖金") '对数量进行统计
dt1 = bd1.BuildDataSource() 

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/22 11:03:00 [只看该作者]

把备注列改成字符列,备注列不能分组

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


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2016/1/22 11:06:00 [只看该作者]

哦,是啊。原来是这个问题。谢谢大红袍老师!!!导入表的时候自动变成备注列,所以就没注意到。

 回到顶部
总数 16 上一页 1 2