i am having trouble loading arrays from file.
there is an error in 'NewItem' which in bold and wat should i write for the button click event to load everything(load arrays item into a drop down list + showing the selected item at the label)
CODE
Public Class frmPurchase
Dim bValid As Boolean = True
Dim StatesArray(0) As String
Dim CodesArray(0) As String
Dim StateCodes As New Collection
Sub Page_Load()
Dim FieldArray(3) As String
Dim FileReader As StreamReader
Dim LineIn As String
Dim CodesArray(0) As String
Dim sFileName As String
sFileName = Application.StartupPath & "\PCTVehicles.txt"
FileReader = File.OpenText(sFileName)
LineIn = FileReader.ReadLine()
While LineIn <> ""
FieldArray = Split(LineIn, ",")
StatesArray(UBound(StatesArray)) = FieldArray(0)
CodesArray(UBound(CodesArray)) = FieldArray(1)
LineIn = FileReader.ReadLine()
If LineIn <> "" Then
ReDim Preserve StatesArray(StatesArray.Length)
ReDim Preserve CodesArray(CodesArray.Length)
End If
End While
FileReader.Close()
End Sub
Sub DropDownList()
Dim i As Integer
For i = 0 To UBound(StatesArray)
cmbVehicleManufac.Items.Add(New [b]ListItem[/b](StatesArray(i), CodesArray(i)))
Next
End Sub
Sub Get_The_Code(ByVal Src As Object, ByVal Args As EventArgs)
lblShowManufac.Text = cmbVehicleManufac.SelectedItem.Value
End Sub
End Class
*thank you for your help..i'm just a beginner in programming..*
This post has been edited by sam_wong: 13 Oct, 2008 - 09:40 AM
| 