zerotoleranc

great idea, mabye even a how to section for new users

Great concept, looks like something even people with limited computer knowledge could understand.

Programming is the backbone to world businesses. And like marble_eater, I like to use my brain. I like the idea that I am creating something that other people may find useful. but all in all, I love to code, I see everything in code, ever application, game whatever.

Danville, VA

I am a student duel majoring in Computer Programming and Networking. I seem to be having an easier time understanding the Programming aspect so far. My life seems to have turned into code, evey program I see now I have this burning desire to see the code behind it, but I don't know how.

ok, here it is 11 hours later and I have figured it out. I replace the line with the error to read... Sales(R, 1) = DescListBox.GetItemText(DescListBox.SelectedItem) yea, I know it was probably simple but, It works and I'm happy

OK guys Here is a summary of my problem. I have been trying for a few days now to get Text from a listbox that is connected to a field in an Access Database Table and put it in an array. It says that the value is String and it is looking for an Integer. any suggestions?? HELP. here is the code: Dim Sales(100, 4) As String Dim R As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OleDbDataAdapter1.Fill(DataSet21) QtyTextBox.Text = "" End Sub Private Sub addButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click Dim wk1 As String Sales(R, 0) = QtyTextBox.Text Sales(R, 1) = DescListBox.Items(DescListBox.SelectedIndex).ToString() ^^^^^Here is where I am haveing the problem^^^^^^^ wk1 = DescListBox.Items(DescListBox.SelectedIndex).ToString() Sales(R, 2) = priceTextBox.Text Sales(R, 3) = Integer.Parse(Sales(R, 0)) * Decimal.Parse(Sales(R, 2)) ' R = R + 1 End Sub Private Sub viewButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles viewButton.Click Dim R1 As Integer Dim item As String item = Sales(R1, 0) & ControlChars.NewLine & Sales(R1, 1) & ControlChars.NewLine & Sales(R1, 2) & ControlChars.NewLine & Sales(R1, 3) 'For R1 = 0 To R ListBox1.Items.Add(item) ' Next End Sub