Visual Basic

6-Feb-07 10:07

I am trying to set a status column equal to 1 or 3 if it contains certain text in the lineitemnotes column. For example, if lineitemnotes contain the text "refunded" then the status is equal to 1 and if lineitemnotes contain the text "Added During Receiving" then status equal to 3. The problem I am having is it will set the first column with the text "refunded" and all the other stauts columns to 1 until it hit the column with the text "Added During Receiving" then all the status columns will be set to 3. However, I only want the status column to be 1 if the lineitemnites column contains the text "refunded" and status column equal to 3 if lineitemnotes column contains "Added During Receiving". Hope this is understandable. Here is my broke code to give an idea of what I am trying to do.

If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then

If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = "1"
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = "3"
End If
End If

I don't know if the contains command is correct or not. Any ideas will help.

jds1207

nlindley76-Feb-07 10:54

nlindley7

6-Feb-07 10:54

What is customername? A String variable? A column name?

Nate Lindley

jds12077-Feb-07 2:56

7-Feb-07 2:56

customername is a string variable.

Dim customername As String
Dim status As String = vbEmpty

nlindley77-Feb-07 3:40

nlindley7

7-Feb-07 3:40

If the lineitemnotes column will be exactly 'Refunded' or 'Added During Recieving' then try this:

If Trim(row("wtnumber")).ToString() & Trim(row("wtcustomername")).ToString() = "" Then

If Trim(row("lineitemnotes")).ToLower() = "refunded" Then

customername = "Refunded"
status = "1"

ElseIf Trim(row("lineitemnotes")).ToLower() = "Added During Receiving" Then

customername = "Stock"
status = "3"

End If

End If

What exactly are you doing with the variables after you set them each time? If you're trying to iterate through a table and set the fields of the rows (customername, status) then you should be putting this code inside a For Each loop and either submitting each row individually or updating at the end via a dataset. This code should work though as far as checking the row's column for a certain value.

Nate Lindley

jds12077-Feb-07 5:35

7-Feb-07 5:35

The variables are being inserted into a MySQL database. I am using a For Each Loop. Here is the code:

For Each row In dtTable.Rows
If row("WTNumber").ToString() = "" Then
SoNum = vbEmpty
Else
SoNum = row("WTNumber").ToString()
End If

If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then

If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = 1
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = 3
Else
customername = "Stock"
status = 3
End If
End If
Next row

jds12077-Feb-07 5:58

My.Settings won't serialize my class

7-Feb-07 5:58

No, the lineitemnotes column will not be exactly 'Refunded' or 'Added During Recieving', it comtains othe data too.

TwoFaced6-Feb-07 7:52

6-Feb-07 7:52

I was wondering if you can add a custom class to the My.Settings object. I mean I know you can because I did, but the problem I'm having is the class won't persist ie. the data isn't saved. The only requirment (I thought) was that the object needed to be serializable, which mine is. So am I doing something wrong, or is this just not an option. I looked for a while but just couldn't find an answer or an example. Also as a general rule, if there even is one, what kind of data should I save using the my.settings object? Should I just stick with basics like form location and color settings or is it appropriate to store whatever you want as long as you wish to store it in an xml format?

Here is a very simple class I made for testing.

<Serializable()> _
Public Class TestClass
    Public Name As String

    Public Sub New(ByVal name As String)
        Me.Name = name
    End Sub
End Class

This is the code I used to extend My.Settings object.

Namespace My
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase

        <Global.System.Configuration.UserScopedSettingAttribute(), _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
         Global.System.Configuration.DefaultSettingValueAttribute(Nothing)> _
        Public Property MyTestClass() As TestClass
            Get
                Return CType(Me("MyTestClass"), TestClass)
            End Get
            Set(ByVal value As TestClass)
                Me("MyTestClass") = value
            End Set
        End Property
    End Class
End Namespace

Re: help help help!!

Christian Graus6-Feb-07 9:35

Christian Graus

6-Feb-07 9:35

wrote:
to anyone who has encounter appforge

If you're asking about something obscure, all the more reason to put it in your subject line, so the subset of CPians who can help, will see it. imagine how useful it would be if all the subject lines were variations on 'help help help'

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Random letters

harveyhanson6-Feb-07 6:02

6-Feb-07 6:02

Is there a way to put a random letter in a set of labels in vb.net 2005, for example, when i load a program, a different set of letters will show up, only single letters, but different each time???

I want the letters to be from a-z, and be different each time for 10 different labels.

I know you can do random numbers, i wasnt sure about letters, and how they would be stipulated.

Cheers

FeRtoll6-Feb-07 6:26

FeRtoll

6-Feb-07 6:26

just like you doo with numbers... i supose that you need that for joke or some fun...

Private Sub Timer Tick
dim i as integer=random number
GetLatter(i)
End Sub

private sub GetLatter(Byval xInput as integer)
if xInput=0 Then
label1.text="A"
elseif xInput=1 Then
label1.text="B"
End if
End Sub

Hope you understand... :->

FeRtoll Software.net
------------
E-Mail me
WebPage

harveyhanson6-Feb-07 6:32

6-Feb-07 6:32

I dont get it!
So your declaring i as an integer, but what is that used for?

Also dont get the get latter bit, how do i loop this through all the letters of the alphabet?

Cheers for the quick response btw, im a bit of a noobie, go easy on me!

Are Jay6-Feb-07 6:47

Are Jay

6-Feb-07 6:47

' Create an ArrayList and fill it with ASCII values
    Dim salt As New ArrayList
    For num As Integer = 65 To 90
      salt.Add(num)
    Next

    Dim rand As New Random()
    Dim iPos As Integer = 0
    Dim cTemp As Char

    While salt.Count > 0

      ' Get a random position within the ArrayList
      ' use the Random.Next(min, max)   
      iPos = CInt(rand.Next(0, salt.Count - 1))

      ' Retrieve the letter within the ArrayList
      '	using ArrayList.Item(iPos)  
      cTemp = Convert.ToChar(CInt(salt.Item(iPos)))

      ' TODO:  cTemp holds your random letter 
      MsgBox(cTemp.ToString)

      ' Remove the letter within the ArrayList
      '	using ArrayList.RemoveAt(iPos)
      salt.RemoveAt(iPos)

      ' Using the above statment will 
      '	decrease the ArrayList.Count 

    End While

This might be a little easier to under stand. Good luck.

I'm listening but I only speak GEEK.

harveyhanson6-Feb-07 6:51

6-Feb-07 6:51

now im even more confused!

Guffa6-Feb-07 7:38

Guffa

6-Feb-07 7:38

Create a random generator:

Dim rnd as New Random()

Get a random character:

Dim c as Char = Convert.ToChar(rnd.Next(65, 91))

Put it in a label:

OneOfMyLabels.Text = c.ToString()

Repeat the last two steps for each label.

---
single minded; short sighted; long gone;

harveyhanson6-Feb-07 8:41

6-Feb-07 8:41

Yours a star, but:

Do you mean like this:

Dim Chara As Char = Convert.ToChar(rnd.Next(98, 123))
Private Sub frmTestAllRows_Load(ByVal sender As System.Object...
lblLetter1.Text = Chara.ToString()
lblLetter2.Text = Chara.ToString()
lblLetter3.Text = Chara.ToString()
lblLetter4.Text = Chara.ToString()

Cos that makes all the labels the same value!

Also, is there any way to do this for 20labels, without having to write out the statement for linking to the rand for each one

-- modified at 15:20 Tuesday 6th February, 2007

Christian Graus6-Feb-07 9:39

Christian Graus

6-Feb-07 9:39

It's obvious from your answers on this thread that you're pretty new to VB. If you're writing something for some fun, finish this project by all means, but then buy a good book on VB ( the language, not the forms designer ) and work through it.

harveyhanson wrote:
lblLetter1.Text = Chara.ToString()
lblLetter2.Text = Chara.ToString()
lblLetter3.Text = Chara.ToString()
lblLetter4.Text = Chara.ToString()

Will obviously make them all the same value.

harveyhanson wrote:
Convert.ToChar(rnd.Next(98, 123))

will generate a new random char every time you call it.

You can write code to iterate over the Controls collection and find textboxes and set them. I suspect this is beyond you, and I am not a VB.NET user, so I can't write an example that I can guarentee will work. The other alternative is to write this code for every label on your form, yes.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog

Re: Random letters [modified]

Guffa6-Feb-07 10:33

Guffa

6-Feb-07 10:33

harveyhanson wrote:
Do you mean like this

No.

I wrote:

Repeat the last two steps for each label.

---
single minded; short sighted; long gone;

TwoFaced6-Feb-07 12:17

6-Feb-07 12:17

Just create a function that returns a random letter. You should do this.

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    label1.text = RandomLetter()
    label2.text = RandomLetter()
    '...
End Sub

Dim rnd As New Random
Private Function RandomLetter() As String
    Return Chr(rnd.Next(97, 123)).ToString
End Function

Or if you want to dynamically find each label and assign it a random letter use this:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    RandomizeLabels(Me, "Label*")
End Sub

'---Assigns a random letter to each label who's name matches the given pattern---
Dim rnd As New Random
Private Sub RandomizeLabels(ByVal container As Control, ByVal pattern As String)
    For Each ctrl As Control In container.Controls
        Dim lbl As Label = TryCast(ctrl, Label)
        If lbl IsNot Nothing AndAlso lbl.Name Like pattern Then
            lbl.Text = Chr(rnd.Next(97, 123)).ToString
        End If
    Next
End Sub

The above code assumes the labels are on your form and not in another container like a panel. If they are then instead of passing 'me' you should pass the container control like 'panel1'. Also the pattern can be anything. Just give your labels a consistent name such as lblRandom1, lblRandom2...and use a pattern of "lblRandom*".

-- modified at 17:52 Sunday 18th February, 2007

harveyhanson18-Feb-07 11:40

18-Feb-07 11:40

Ok, ive sorted this:

Dim c1 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter1.Text = c1.ToString()
Dim c2 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter2.Text = c2.ToString()
Dim c3 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter3.Text = c3.ToString()
Dim c4 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter4.Text = c4.ToString()
Dim c5 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter5.Text = c5.ToString()
Dim c6 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter6.Text = c6.ToString()
Dim c7 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter7.Text = c7.ToString()
Dim c8 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter8.Text = c8.ToString()
Dim c9 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter9.Text = c9.ToString()
Dim c10 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter10.Text = c10.ToString()

Is there anyway to put this in a loop so it doesnt take up so many lines of code, i know im just being pedantic, just thought i would check!

TwoFaced18-Feb-07 11:47

18-Feb-07 11:47

Just look at the post I posted earlier (http://www.codeproject.com/script/comments/forums.asp?msg=1881004&forumid=1646#xx1881004xx[^]). It uses a loop to fill each label with a random character. At the very least you should be using a function which would help you clean up your code considerably. An example of that was also posted in my last post.

harveyhanson18-Feb-07 12:01

18-Feb-07 12:01

Gotcha! Cheers.

Just final question, can you explain exactly what this line does, is it that if lblLetter is not empy and also has a name similar to lblLetter then...???:

If lblLetter IsNot Nothing AndAlso lblLetter.Name Like pattern Then

TwoFaced18-Feb-07 19:28