0
如何使用一個手柄在這個昏暗的名單我需要處理newpritemnobox。那是當我從newpritemnobox組合框中選擇在某些含有podesc的newpritemnobox的選擇會說明顯示如何顯示當陣列組合框中選擇
Public Class POfrm
Dim newpritemnobox As New List(Of ComboBox)
Dim newpodescbox As New List(Of RichTextBox)
Private Sub controlall(ByVal controlcount As Integer)
Dim boxpritemno As ComboBox
Dim boxpodesc As RichTextBox
For i As Integer = 1 To controlcount
boxpritemno = New ComboBox
boxpritemno.Size = New Drawing.Size(51, 21)
boxpritemno.Location = New Drawing.Point(89, 542 + 58 * (i - 1))
newpritemnobox.Add(boxpritemno)
Me.Controls.Add(boxpritemno)
Next
For i As Integer = 1 To controlcount
boxpodesc = New RichTextBox
boxpodesc.Size = New Drawing.Size(442, 45)
boxpodesc.Location = New Drawing.Point(323, 542 + 58 * (i - 1))
newpodescbox.Add(boxpodesc)
Me.Controls.Add(boxpodesc)
Next
End Sub
Private Sub poitemno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles poitemno.Click
Dim msgboxresponse As MsgBoxResult
msgboxresponse = MsgBox("Are You Sure of the number of Item you choose?Please Check Again", _
MsgBoxStyle.Question + MsgBoxStyle.YesNo, Me.Text)
If msgboxresponse <> MsgBoxResult.Yes Then
Else
controlall(Val(txtpoitemno.Text))
txtpoitemno.Enabled = False
poitemno.Enabled = False
loadtrypritemno()
Return
End If
End Sub
我想這是我爲它的代碼,但它既不顯示錯誤也不工作
Private Sub boxpounitprice_SelectedIndexChanged(ByRef boxpritemno As ComboBox)
datab = "Select pritemno from prpo where pritemno = '" & boxpritemno.Text & "'"
connDB()
cmd = New OleDbCommand(datab, conn)
Dim result As Object
result = cmd.ExecuteScalar()
If result IsNot Nothing Then
boxpoqty.Text = result.ToString()
End If
End Sub
Private Sub loadtrypritemno()
Dim controlall As Integer = Val(txtpoitemno.Text)
'start from 0 because it's 0-based index
For i As Integer = 0 To controlall - 1
' addbuyer(Label(i), itemcode(i), boxes(i), qty(i), combo(i), statusboxes(i), Remarksboxes(i))
boxpounitprice_SelectedIndexChanged(newpritemnobox(i))
AddHandler newpritemnobox(i).SelectedIndexChanged, AddressOf boxpounitprice_SelectedIndexChanged
Next
End Sub
Private Sub boxpounitprice_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim tb As ComboBox = CType(sender, ComboBox)
tb.SelectAll()
MsgBox()
End Sub
'Private Sub loadamounttext()
' ' addpo()
'End Sub
Private Sub loadprinaccountcode()
Dim datab4 As String
Dim cmd4 As OleDbCommand
Try
Dim ST As String = cmbprno.SelectedText
End Sub
Private Sub loadpritem(ByRef boxpritemno As ComboBox)
Try
datab = "Select pritemno from prpo where prno = '" & cmbprno.Text & "'"
connDB()
cmd = New OleDbCommand(datab, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
boxpritemno.Items.Clear()
Do While dr.Read = True
' txtdepartadd.Items.Add(dr("Departmentname"))
boxpritemno.Items.Add(dr(0))
Loop
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
conn.Close()
End Try
End Sub
End Class