C# と VB.NET の質問掲示板

■No86531 (shu さん) に返信

お世話になります。

        ' 10:20〜11:55
        'For i = 0 To 59        ' 10:20〜10:59     ’<--- これは間違い
        For i = 20 To 59        ' 10:20〜10:59
            datS = datS + 1
            Uridat(datS).Jikoku = $"10:{i:00}"     '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2
            Uridat(datS).mark = " "

            'If i = 0 Then                         ’<--- これは間違い
            If i = 20 Then
                    Uridat(datS).mark = "*"            ' "*" マーク
            End If
        Next

先ず最初に↑のような間違いをしてましたので修正をさせていただきます。


> 仮に30分単位のピックアップとして
> 8:10
> 8:30
> 10:20
> 10:30
> 11:00
> 11:30
> の順でピックアップ、ただし8:10と10:20は*がついているのでこれらのデータの直前に空白データを追加
> となるのでデータが追加される順番をかんがえると
> 1 空白　　　　　　
> 2 8:10
> 3 空白
> 5 10:20
> 6 10:30
> 7 11:00
> 8 11:30
> となります。


 1 空白　
 2 8:10
 3 8:30
 3 空白
 4 10:20
 5 10:30
 6 11:00
 7 11:30
 となりますね。


>>If disp Then
>>   ret.Rows.Add(x, d, row("数量1"), row("数量2"))
>>   x += 5
>>End If
> ここの　ret.Rows.Add(x, d, row("数量1"), row("数量2"))を行う直前でif判定でrow("Mark")の内容をチェックして
> 空白を追加すればよいと思うのです。

   If row("マーク") = "*" Then

   End If

そのようには思うのですが今はこれくらいしか思いつきません（汗；


ちなみに、
何故、*マークを付けたかは、その方がプログラムも簡素化かが出来るのでは？？ とも思ったからです。