主题：[求助]（虚心请教）怎么实现这个

这个刚刚开始弄，很多事情都还没弄，等以后很多表都填进去之后肯定还会有搞不了的事情，需要帮助的地方还很多，

 

十分感谢！ 

 

我自己也会持续学习和操作帮助文档和论坛例子！

 

谢谢帮忙！

 问题1 代码

 

Dim t As Table = Tables("基础走势")
Dim qcs() As String = {"红一", "红二", "红三", "红四", "红五", "红六", "蓝球"}
Dim pr As Row = Nothing
For i As Integer = 0 To t.Rows.Count - 1
    Dim r As Row = t.Rows(i)
   
    For j As Integer = 1 To 33
        For Each qc As String In qcs
            If r(qc) = j Then
                If pr Is Nothing Then
                    r("h" & j) = 1
                Else
                    r("h" & j) = pr("h" & j) + 1
                End If
                Exit For
            Else
                r("h" & j) = 0
            End If
        Next
    Next

    pr = r
Next

此主题相关图片如下：888.jpg

不对呀！甜        乱的

 没有错啊

呵呵 ，可能是我没说清楚，

甜呐，这样吧，您到网页上找个双色球走势图就明白我什么意思了。

 

谢谢你，麻烦您了！解决了这一个TABLE的问题，就相当于解决了之后10多个TABLE的问题！呵呵

 

 

 

 

H1---H33  是会出现的33个号码对应的列。  

 

我的意思是，前面开出了号码的花，后面对应的列显示的是0.

 

如果前面没有出现对应的号码，就在H&J  累加一次遗漏，要累加的形式。

 

之后我自己再用图形字典处理0的显示问题。

 

其实做完后，TABLE上是看不见0的存在的！

 不理解你什么意思，你的逻辑就是这个啊。

等我一下，我手动做个图给你，你就 明白了，   等我   

此主题相关图片如下：777.png

这个是我用EXCLE 的时候做的表，   就是要做成这个样子的。

 

之所以转移用狐表，是因为，用图表可以很轻松很多样的进行各种各样方法的查看和转变。

Dim t As Table = Tables("基础走势")
Dim qcs() As String = {"红一", "红二", "红三", "红四", "红五", "红六", "蓝球"}
Dim pr As Row = Nothing
For i As Integer = 0 To t.Rows.Count - 1
    Dim r As Row = t.Rows(i)
   
    For j As Integer = 1 To 33
        Dim flag As Boolean = False
        For Each qc As String In qcs
            If r(qc) = j Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            r("h" & j) = 0
        Else
            If pr Is Nothing Then
                r("h" & j) = 1
            Else
                r("h" & j) = pr("h" & j) + 1
            End If
        End If
    Next
   
    pr = r
Next