Create table with two criteria without excel

[Anonymous]

Hi, hoping someone could lend me a hand.

I am trying to have the thickness values below populate into a property based on two selections, the nominal pipe size (1/8"-48") and the schedule (5,5S,10 - XXS). I used the method in this post to create a working table but my problem is the use of the multivalue property which means all options for both criteria are always valid. In my case the 6" pipe is not available in schedules 20,30,60,100 and 140 so when the user selects the 6" pipe I only want the 2nd criteria to show the available schedules.

Thank you

[chandra.shekar.g]

@Anonymous,

I think, use "N/A" value to schedules 20,30,60,100 and 140 for 6" pipe.

Can you please provide non confidential source code to investigate?

Thanks and regards,

[Anonymous]

So I did it this way, hopefully there is a cleaner way but all I could come up with;

If PIPE_SIZE = "12" Then
    PIPE_OD = 12.75 in
    MultiValue.SetList("PIPE_SCH", "20", "30", "STD", "40", "XH", "60", "80", "100", "120", "140", "160")
    Select Case PIPE_SCH
        Case = "20" 
            PIPE_THK = 0.250 in
        Case = "30" 
            PIPE_THK = 0.330 in
        Case = "STD" 
            PIPE_THK = 0.375 in
        Case = "40" 
            PIPE_THK = 0.406 in
        Case = "XH" 
            PIPE_THK = 0.500 in
        Case = "60" 
            PIPE_THK = 0.562 in
        Case = "80" 
            PIPE_THK = 0.688 in
        Case = "100" 
            PIPE_THK = 0.844 in
        Case = "120" 
            PIPE_THK = 1.000 in
        Case = "140" 
            PIPE_THK = 1.125 in
        Case = "160" 
            PIPE_THK = 1.312 in
        Case Else 'Not a valid schedule for the selected pipe size
        MessageBox.Show (PIPE_SCH & " IS NOT A VALID SCHEDULE FOR SIZE " & PIPE_SIZE & " PIPE." & vbLf & "PIPE SCHEDULE WILL BE SET TO STD", "ERROR",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        PIPE_SCH = "STD"
    End Select
Else If PIPE_SIZE = "14" Then
    PIPE_OD = 14 in
    MultiValue.SetList("PIPE_SCH", "20", "30", "STD", "40", "XH", "60", "80", "100", "120", "140", "160")
    Select Case PIPE_SCH
        Case = "20" 
            PIPE_THK = 0.312 in
        Case = "30" 
            PIPE_THK = 0.375 in
        Case = "STD" 
            PIPE_THK = 0.375 in
        Case = "40" 
            PIPE_THK = 0.438 in
        Case = "XH" 
            PIPE_THK = 0.500 in
        Case = "60" 
            PIPE_THK = 0.594 in
        Case = "80" 
            PIPE_THK = 0.750 in
        Case = "100" 
            PIPE_THK = 0.938 in
        Case = "120" 
            PIPE_THK = 1.094 in
        Case = "140" 
            PIPE_THK = 1.250 in
        Case = "160" 
            PIPE_THK = 1.406 in
        Case Else 'Not a valid schedule for the selected pipe size
        MessageBox.Show (PIPE_SCH & " IS NOT A VALID SCHEDULE FOR SIZE " & PIPE_SIZE & " PIPE." & vbLf & "PIPE SCHEDULE WILL BE SET TO STD", "ERROR",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        PIPE_SCH = "STD"
    End Select
End If 

[bradeneuropeArthur]

why not creating a CSV file (Comma Separated Value) and read from that!

[Anonymous]

Can you post an example? Can the CSV be embedded inside the file or do I need an external link?

Thank you

[bradeneuropeArthur]

Can Both

What you like.

What do you prefer?

[Anonymous]

If you could create a sample file with the table based on my table above that would be great!

[bradeneuropeArthur]

Could you share your table file, so I can prepare something?