VB.NET Remainder Function

Question

То, что я пытаюсь сделать, это сделать строку текста, отображаемую каждые 50 строк. Я пытался найти функцию reaminder для использования на сервере GlobalVariables.TransferTracker, но я ничего не нашел в Интернете. Есть ли такая функция? Или отличный способ/лучший способ сделать это? Если это помогает вот мой код:

 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 в ваших условиях. Его избыточность избыточна.