计算循环问题 [英] Counting in for loop problem

问题描述

大家好，我真的需要您的帮助.

即时通讯系统正在开发中，我遇到了问题.

我用于循环计数，但是我需要同时进行一些计数.

这是我的代码:

hi guys good day i really need your help.

im having a problem with my system that im developing.

i used for loop to count but i need some counting simultaneously.

here''s my code:

For TicketNumber = txtTicketNumber1.Text To txtTicketNumber2.Text
               For SerialNumber = txtSerialNumber1.Text To txtSerialNumber2.Text
                   If ds.Tables(0).Rows.Count > 0 Then
                       MsgBox("Existing", MsgBoxStyle.Critical, "Warning")
                   Else
                       con.Open()

                       InfoSave = New OleDb.OleDbCommand("INSERT INTO GeneralDetails(ConcetTitle, TicketNumber, SerialNumber, TicketType, TicketPrice, ConcertDetails) VALUES (''" & txtConcertTitle.Text & "'' ,''" & TicketNumber & "'' ,''" & SerialNumber & "'' ,''" & txtTicketType.Text & "'' , ''" & txtTicketPrice.Text & "'', ''" & txtConcertDetails.Text & "'')", con)
                       InfoSave.ExecuteNonQuery()
                       con.Close()

                   End If
                   MsgBox("Data successfuly save please reffer to the table for checking", MsgBoxStyle.OkOnly, "JKD Productions")
               Next SerialNumber
           Next TicketNumber

此代码将在前三列中打印，如下所示:

标题1 1
标题1 2
标题1 3

那是我的错误，因为我真的需要它同时进行计数，例如:

标题1 1
标题2 2

或像这样

标题12 99
标题13100

谢谢大家，我希望你明白我的意思.我期待着您的帮助.先感谢您.祝你有美好的一天. :)

This code will print for the first three columns will be like this:

title 1 1
title 1 2
title 1 3

that''s my error because i really need it to count simultaneously like:

title 1 1
title 2 2

or like this

title 12 99
title 13 100

thanks guys i hope you understand my point here. im looking forward to your help. thank you in advance. have a great day forward. :)

推荐答案

您可以执行以下操作:

You can do something like this:

SerialNumber = txtSerialNumber1.Text
        For TicketNumber = txtTicketNumber1.Text To txtTicketNumber2.Text
               SerialNumber = SerialNumber + 1
                   If ds.Tables(0).Rows.Count > 0 Then
                       MsgBox("Existing", MsgBoxStyle.Critical, "Warning")
                   Else
                       con.Open()

                       InfoSave = New OleDb.OleDbCommand("INSERT INTO GeneralDetails(ConcetTitle, TicketNumber, SerialNumber, TicketType, TicketPrice, ConcertDetails) VALUES ('" & txtConcertTitle.Text & "' ,'" & TicketNumber & "' ,'" & SerialNumber & "' ,'" & txtTicketType.Text & "' , '" & txtTicketPrice.Text & "', '" & txtConcertDetails.Text & "')", con)
                       InfoSave.ExecuteNonQuery()
                       con.Close()

                   End If
                   MsgBox("Data successfuly save please reffer to the table for checking", MsgBoxStyle.OkOnly, "JKD Productions")               
           Next TicketNumber

这篇关于计算循环问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！