Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
[求助]  发帖心情 Post By:2020/5/6 15:22:00 [只看该作者]

老师好,我复制了别人写的一段编码想做一个统计表,统计表的要统计的内容是彩piao双色球的开奖号码,分别对奖号的前六位(也就是红球)和最后一位(蓝球)进行统计。
首先对蓝球进行统计,表格中的奖号是通过开彩网的接口接收到开奖数据,表格中用红线画上的是开奖号码的最后一位(蓝球)应显示在“开奖号码_蓝球”列内,请老师帮助写一下编码

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 15:26:00 [只看该作者]


此主题相关图片如下:qq图片20200506143452.png
按此在新窗口浏览图片
老师好,我复制了别人写的一段编码想做一个统计表,统计表的要统计的内容是彩piao双色球的开奖号码,分别对奖号的前六位(也就是红球)和最后一位(蓝球)进行统计。
首先对蓝球进行统计,表格中的奖号是通过开彩网的接口接收到开奖数据,表格中用红线画上的是开奖号码的最后一位(蓝球)应显示在“开奖号码_蓝球”列内,请老师帮助写一下编码

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 15:28:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 15:34:00 [只看该作者]

[
此主题相关图片如下:qq图片20200506143452.png
按此在新窗口浏览图片
upload=png,qq图片20200506153145.png]UploadFile/2020-5/20205615331799667.png[/upload]
老师好,我复制了别人写的一段编码想做一个统计表,统计表的要统计的内容是彩piao双色球的开奖号码,分别对奖号的前六位(也就是红球)和最后一位(蓝球)进行统计。
首先对蓝球进行统计,表格中的奖号是通过开彩网的接口接收到开奖数据,表格中用红线画上的是开奖号码的最后一位(蓝球)应显示在“开奖号码_蓝球”列内,请老师帮助写一下编码

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


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/6 15:42:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080

请上传项目实例,并截图说明要什么效果?

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 15:46:00 [只看该作者]


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

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 15:51:00 [只看该作者]

对不起,上面做了一些重复的操做,说的都是同一个事

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


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

请上传项目实例,并截图详细说明要什么效果?

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


加好友 发短信
等级:婴狐 帖子:13 积分:245 威望:0 精华:0 注册:2017/9/1 11:48:00
  发帖心情 Post By:2020/5/6 16:48:00 [只看该作者]

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



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


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

……
Dim cr() As Char = {",","+"}
For Each o As object In data2.data
    oc = o.expect
    dr3 = DataTables("表A").SQLFind("期号 = '" &  oc & "'")
    If dr3 Is Nothing Then '如果找到的话
        dr3 = DataTables("表A").AddNew
        NB = o.opencode.Split(cr)
        dr3("奖号") = o.opencode
        dr3("期号") = oc
        dr3("开奖号码_第六位") = NB(0)
        dr3("开奖号码_第五位") = NB(1)
        dr3("开奖号码_第四位") = NB(2)
        dr3("开奖号码_第三位") = NB(3)
        dr3("开奖号码_第二位") = NB(4)
        dr3("开奖号码_第一位") = NB(5)
        dr3("开奖号码_蓝球") = NB(6)
        n= n + 1
    End If
Next
……

 回到顶部