Question

我要做的是每读取50个字符串就会显示一行文字。我试图在GlobalVariables.TransferTracker interger上找到一个reaminder函数，但我在网上找不到任何东西。有没有这样的功能？或者不同/更好的方法来做到这一点？如果它有帮助，这是我的代码：

       Do While TransferRecord.Read()

            'Start of writing to the SQL server.
            SQLServerConnection.Open()

            'SQL statement to transfer all the data that fits the requirements to the SQL server.
            Dim SQLCommand1 As New SqlCommand("INSERT INTO dbo.b_Pulp_PI_Forte (" & _
                                              "mill, " & _
                                              "keyprinter_datetime, " & _
                                              "bale_line_num, " & _
                                              "pulp_line_id, " & _
                                              "bale_id, " & _
                                              "drop_datetime, " & _
                                              "layboy_position, " & _
                                              "bale_gross_weight, " & _
                                              "gross_value_flag, " & _
                                              "bale_airdry_pct, " & _
                                              "airdry_value_flag, " & _
                                              "sheets_per_bale, " & _
                                              "grader_test_flag, " & _
                                              "dropped_num, " & _
                                              "created_by, " & _
                                              "CreatedDateTime, " & _
                                              "Who_did_it, " & _
                                              "Last_change_datetime) " & _
                                              "VALUES (" & _
                                              "'850', " & _
                                              "'" & ProdDate & "', " & _
                                              "'" & BaleLineNum & "', " & _
                                              "'" & BaleLine & "', " & _
                                              "'" & BaleNumber & "', " & _
                                              "'" & ProdDate & "', " & _
                                              "'0', " & _
                                              "'" & GrossWeight & "', " & _
                                              "'" & GrossWeightFlag & "', " & _
                                              "'" & AirDry & "', " & _
                                              "'" & AirDryFlag & "', " & _
                                              "'0', " & _
                                              "'N', " & _
                                              "'0', " & _
                                              "'BaleTrac', " & _
                                              "'" & Date.Now & "', " & _
                                              "'BaleTrac', " & _
                                              "'" & Date.Now & "')")

            'If DisplayCode is checked this will be printed to the screen.
            If ApplicationPropertiesWindow.DisplayCodechkbx.Checked = True Then
                MainTextBox.AppendText(Environment.NewLine & SQLCommand1.CommandText)
                GlobalVariables.DisplayCode = True
            End If

            'Executing the SQL statement.
            SQLCommand1.Connection = SQLServerConnection
            SQLCommand1.ExecuteNonQuery()
            SQLServerConnection.Close()
            GlobalVariables.TransferTracker = GlobalVariables.TransferTracker + 1

            'This is where I would like to have the remainder function.
            'Making message to show that program is still running.
            If GlobalVariables.TransferTracker = 50 Then
                MainTextBox.AppendText(Environment.NewLine & "50 records transferred.")
            End If
        Loop

现在我只是将它设置好以便触发50条记录，因为我找不到该功能。

Answer 1

余数是VB中的运算符，Mod：

If GlobalVariables.TransferTracker Mod 50 = 0 Then …

作为一般性建议，请勿在您的条件中写下… = True。它的冗余是多余的。

VB.NET剩余函数

1 个答案: