如何修復未調用的功能（無錯誤警報）

這是我的計算課程的一些代碼，用於創建座位預訂系統，允許用戶輸入所需的行和所需的相鄰座位的數量，然後該表格會輸出一條消息，顯示可用的座位，或者如果該行沒有足夠的座位，則會發出警報。如何修復未調用的功能（無錯誤警報）

我遇到的主要問題是我沒有錯誤，但是一旦提交按鈕被點擊，沒有任何反應會顯示「seatsBlock」函數沒有調用，我想知道是否有人可以給我一個解決方案

Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged 

    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 


     Dim rowNumber As Integer 

     If ListBox2.Text = "A" Then 
      rowNumber = 1 
     ElseIf ListBox2.Text = "B" Then 
      rowNumber = 2 
     ElseIf ListBox2.Text = "C" Then 
      rowNumber = 3 
     ElseIf ListBox2.Text = "D" Then 
      rowNumber = 4 
     ElseIf ListBox2.Text = "E" Then 
      rowNumber = 5 
     End If 

     SearchSeats(rowNumber, ListBox1.Text) 

    End Sub 
    Function SearchSeats(ByVal RowNumber As Integer, ByVal NumSeats As Integer) As String 
     Dim CountSeat As Integer = 0 ' 
     Dim FirstSeat As String = 0 
     Dim lastSeat As String = 0 

     Dim i As Integer = 0 
     FirstSeat = SeatsBlock(RowNumber, i, FirstSeat, lastSeat) 
     Do While NumSeats > CountSeat 
      If i > 9 Then 
       Return ("There are not enough seats available in this block") 
       Exit Do 
      End If 
      If SeatsBlock(RowNumber, i, FirstSeat, lastSeat) = "booked" Then 
       CountSeat = 0 
       FirstSeat = SeatsBlock(RowNumber, (i + 1), FirstSeat, lastSeat) 
      Else 
       lastSeat = SeatsBlock(RowNumber, i, FirstSeat, lastSeat) 
       CountSeat = i + 1 
      End If 
      i = i + 1 
     Loop 
     Return ("There are currently " & NumSeats & "seats available: " & FirstSeat & " - " & lastSeat) 

    End Function 
    Function SeatsBlock(ByVal RowNumber As Integer, ByVal NumSeats As Integer, ByVal FirstSeat As String, ByVal LastSeat As String) As String 
     Return ("Currently available are " & NumSeats & " seats available: " & FirstSeat & " - " & LastSeat) 
    End Function 



    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 
     Dim SeatsBlock As String(,) = {{"A1", "A2", "booked", "A4", "A5", "A6", "A7", "A8", "booked", "A10"}, {"booked", "booked", "booked", "B4", "B5", "booked", "booked", "B8", "booked", "B10"}, {"C1", "C2", "C3", "C4", "C5", "C6", "C7", "C8", "C9", "C10"}, {"D1", "booked", "booked", "D4", "D5", "D6", "D7", "D8", "D9", "D10"}, {"E1", "E2", "booked", "booked", "booked", "E6", "E7", "E8", "E9", "E10"}} 
    End Sub

感謝

來源

2014-04-22 user3559765

當您在Button1_Click事件上進行調試時，您能夠達到斷點嗎？它的意義是否到達了這個功能？ –

更改以下行：

SearchSeats(rowNumber, ListBox1.Text)

此：

Msgbox(SearchSeats(rowNumber, ListBox1.Text))

這樣你得到一個消息框，否則你將永遠不會看到錯誤！

來源

2014-04-22 09:58:30 Chris

如何修復未調用的功能（無錯誤警報）

回答

相關問題