- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149570)
-- 发布时间：2020/5/6 15:22:00
-- [求助]
老师好，我复制了别人写的一段编码想做一个统计表，统计表的要统计的内容是彩票双色球的开奖号码，分别对奖号的前六位（也就是红球）和最后一位（蓝球）进行统计。
首先对蓝球进行统计，表格中的奖号是通过开彩网的接口接收到开奖数据，表格中用红线画上的是开奖号码的最后一位（蓝球）应显示在“开奖号码_蓝球”列内，请老师帮助写一下编码
-- 发布时间：2020/5/6 15:26:00
--
此主题相关图片如下：qq图片20200506143452.png
老师好，我复制了别人写的一段编码想做一个统计表，统计表的要统计的内容是彩票双色球的开奖号码，分别对奖号的前六位（也就是红球）和最后一位（蓝球）进行统计。
首先对蓝球进行统计，表格中的奖号是通过开彩网的接口接收到开奖数据，表格中用红线画上的是开奖号码的最后一位（蓝球）应显示在“开奖号码_蓝球”列内，请老师帮助写一下编码
-- 发布时间：2020/5/6 15:28:00
--
此主题相关图片如下：qq图片20200506143452.png
老师好，我复制了别人写的一段编码想做一个统计表，统计表的要统计的内容是彩票双色球的开奖号码，分别对奖号的前六位（也就是红球）和最后一位（蓝球）进行统计。首先对蓝球进行统计，表格中的奖号是通过开彩网的接口接收到开奖数据，表格中用红线画上的是开奖号码的最后一位（蓝球）应显示在“开奖号码_蓝球”列内，请老师帮助写一下编码UploadFile/2020-5/2020561528252880.png" target="_blank">点击浏览该文件
-- 发布时间：2020/5/6 15:34:00
--
[
此主题相关图片如下：qq图片20200506143452.png
upload=png,qq图片20200506153145.png]UploadFile/2020-5/20205615331799667.png[/upload]
老师好，我复制了别人写的一段编码想做一个统计表，统计表的要统计的内容是彩票双色球的开奖号码，分别对奖号的前六位（也就是红球）和最后一位（蓝球）进行统计。
首先对蓝球进行统计，表格中的奖号是通过开彩网的接口接收到开奖数据，表格中用红线画上的是开奖号码的最后一位（蓝球）应显示在“开奖号码_蓝球”列内，请老师帮助写一下编码
-- 发布时间：2020/5/6 15:42:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
请上传项目实例，并截图说明要什么效果？
-- 发布时间：2020/5/6 15:46:00
--
此主题相关图片如下：qq图片20200506154349.png
-- 发布时间：2020/5/6 15:51:00
--
对不起，上面做了一些重复的操做，说的都是同一个事
-- 发布时间：2020/5/6 16:02:00
--
请上传项目实例，并截图详细说明要什么效果？
-- 发布时间：2020/5/6 16:48:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20.table |
-- 发布时间：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
……