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

TwoFaced

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