until i put in On Error Resume Next i was getting runtime error 94 in vaild use of null
i would like to have something like case null: Result = " Unknown"
Function GetPingStatus(ByVal StatusCode As Long)
On Error Resume Next
[code].....
I'm trying to use a select case statement to evaluate the value being passed from an array list...any suggegstions. I need to determine if the array is null or not, and setup my select case statement based on if the array is populated. See sample code below Code Sample selected As New ArrayList
Dim dvExisting as DataView
Dim grdExisting as DataGrid
For
i = 0 To dvExisting.Count - 1
If grdExisting.IsSelected(i) Then
[Code]...
[Code] Now the problem is that after i put this user-control in a form, I have to set a value for the Handled file. Otherwise it gives me a value cannot be null exception. Is there a way that i can set code that would execute in the case of the value being null? [Code]
View 14 Repliesi have a program using a select case to convert letters to special charaters. My question is how can I get the code to read upper and lower case letters without having to put the upper case letters in my select case statement. Example: Part of my code is
[Code]...
i want to the textbox that when I start to type in names it should be like this Camille Aisha Cordova, How do I do this?
View 16 RepliesIm using a Random Pool number generator and was wondering how i can make it use upper-case and lower-case letters as well as numbers here is a pic
[Code]...
I want my TextBox to make the text i enter as Sentence Case(ProperCase).. but i dont want to write any code in an event like Lost Focus or KeyPress
Just by default when ever a user enter or types in a textbox the first letter of every word should automatically converted into UpperCase
When my form loads it adds some handles (using AddHandler) to a sub (showStatus). What this sub does is checks which control activated the sub (using sender.Equals) and displays text in the status label (status) accordingly.For this I use an If...Then statement for each possibility. There are many possibilities and my code get cluttered. Is there a way to do the same thing with a Select...Case statement. I tried: Select Case sender Case tbOne : status.Text = "blahblahblahblahblahblah" End Selectwhere: tbOne is a textbox, status is a StatusLabelIt gives me an error though, saying "Operator '=' is not defined for types 'Object' and 'System.Windows.Forms.TextBox'."Any ideas on how I can get this to work with a select case statement?
View 13 Replieshere is my code..
[Code]....
If the result is 86 and it's mod by 43 the answer is 2 Case 2 is not firing. it just goes to the end of the procedure.
It looks like impossible but...
Try
Select Case command
Case 1
smth()
Case 2
[code]....
Firstly Case 2 runs. Throws exception. And right after this debugger shows that next processed statement is Case Else. Only after Case Else throws own exception Catch block start working. I've never seen this trick. Why can this happened?I'm sure the block is entered once (not like this:first enter hit Case 2 and second hit Case Else).
Update:-To Matt Wilko. Thank you for answering. I've switch to Strict On in Options of VS2010 but nothing has changed. Command is variable, not function. Watch tool shows that on each step Command is the same ( Command = 2).
Fixed. Yeeaaaahhh. I simplefy code to
Try
Select Case 2
Case 2
[code]....
and change project to Console app. This works as I mention. The fix was in Release mode. I was debugging in Release mode. When I switch to Debug mode everything goes as it should.
I have a fairly simple piece of code:
Private _PurchaseDelivery as PurchaseDelivery
Protected Overrides Sub InsertItem(ByVal index As Integer, ByVal item As PurchaseDeliveryItem)
[Code]....
Which is inside a class which overrides a custom list base. The code is occassionaly throwing an unhandled exception, System.NullReferenceException, on this line when used in production:
If _PurchaseDelivery IsNot Nothing AndAlso _PurchaseDelivery.DefaultSKUBinID.HasValue Then
DeafultSKUBinID is declared as an Integer? (Nullable Int) in the PurchaseDelivery class. I cannot see what might be causing this error, why would this be returning an error?
I need to add Functions for the Case 10 and Case 13 in this code. The code in each select case needs to be moved to the two functions which then returns the code once its called from the Sub Main section. But I am having a really hard time figuring out what exactly gets moved to each function.[code]I'm not sure what exactly to put into the individual Functions and how to change up the Sub Main section.
View 4 RepliesHow to check whether a column is null i use the following code but I got this error "Input string was not in a correct format."
[Code]....
When I put a break point to the last if clause in the sub ("If (backOrder < 0) Then", see below) it runs until the break point, if I put the break point further below, I get the following error:
Cannot insert the value NULL into column 'OrderID', table 'WHM.dbo.OrderDetails'; column does not allow nulls. INSERT fails. The statement has been terminated.
I've discovered first hand that it only happens when prodqty is bigger then qtyOnStock, thus executing the if clause.
The code:
Private Sub NCOSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NCOSubmit.Click
Dim sqlText As String = ""
[Code]....
I am trying to create a treeview in VB.net, the data has to be loaded from MSAccess 2010 database. When I try to run this program I get error : Argument Null Exception was unhandled, 'column' argument cannot be null and the program crashes. I have pasted the code as under:
Imports System.Data.OleDb
Public Class frmRating
Private Sub frmRating_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
[code].....
I have coded a case statement that changes the background colour of a panel. [code]When the code is run, it works for the case of colour1 that is NOT 1 or 2. However, when the colour1 is 1 or 2, it is supposed to pick a number from set array and run another case statement. Instead, it only picks the last value (for 1, this is 5, and for 2, this is 7).
View 3 RepliesI have some code which gets child items for a menu via the GetChildren function which takes a list of menuData: Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
If menuData.Children IsNot Nothing Then
menuData.Children.AddRange(GetChildren(menuData))
End If
Next
If I check if menudata.children isnot nothing, it always is nothing because the GetChildren function is yet to run (providing the child items, which do exist). If I remove this check and just have this code:
Dim builtMenu As New List(Of MenuData)(_rawData.FindAll(Function(item) item.GroupingID = 0))
For Each menuData As MenuData In builtMenu
menuData.Children.AddRange(GetChildren(menuData))
Next
Then I am presented with a Object reference not set to an instance of an object error on menuData.Children.AddRange(GetChildren(menuData))
[code]I don't get any error messages, but the DoSomething() line is never executed. I guess this isn't possible.
View 7 RepliesThis is my vb.net code:
[Code]...
Only problem is that it is using a access database that is coming from "my documents" and when I debug it pulls up the database that is finished. When I run my published program, it uses the database that isn't finished. Why is it doing this?
View 2 Replieshow would you change this if..then...else to a case statement? i've done simpler ones but this one i dont seem to be able to do it..
[Code]...
I'm working on a routine that requires a significant amount of nested and daisy-chained logic. Using If-Then-Else, each logic construct would run 8-15 lines of code (quite readable) while using Select Case each construct doubles that (even with significant commentation, it gets less and less readable with each new Case).
I've read many times in this forum how Select Case is leaps and bounds ahead of If-Then-Else in runtime performance, although I can't recall any discussion of the underlying process(es) that make it so. I've also not had any luck finding good, detailed documentation on the nuts and bolts under each logic construct. What I'm working on, if the performance leap is legit, needs the performance more than the readability but if the performance is marginal then the readability is going to get the priority. how and why Select Case is supposed to process so much faster than If-Then-Else. Links to good white paper would be really nice too.
I have a macro that uses "If Then" to choose what macro to run based on the ActiveCell. I would like to use the Select Case method instead. How would I change this code?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.DisplayAlerts = False
Application.ScreenUpdating = False
[Code].....
Question is, I basically wrote a Rock Paper Scissors game in VB.NET using If statements and wondered how exactly I would try and work this into a Select Case instead.Professor was pretty awful at teaching things and didn't let us know until today that it had to be Select Case(its due tomorrow
View 2 RepliesI am using the contains method to look through an array to find matches, however I notice that when I use it it is case sensitive. Is there another method I can use to do a case insensitive search or some way to modify the contains method to search case insensitively? [code]
View 3 RepliesI am using the RichTextBox Keydown event in Windows Vista, Visual Studio 2010 to detect when key combinations are pressed, and it works great, with one simple exception:Case Keys.Alt ' Does not work! Everything else works fine.
HTML
Private Sub RichTextBoxPrintCtrl0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBoxPrintCtrl0.KeyDown
Dim high As Integer
[code].....
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
Dim con As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Saurabh\My Documents\Versa Server 2008.mdb")
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Login WHERE UserName = '" & UsernameTextbox.Text & "' AND PassWord = '" &
[code].....
' If the record can be queried, Pass verification and open another form.
If (sdr.Read() = True) Then
MessageBox.Show("The user is valid!")
Dim mainForm As New Form
[code].....
how to validate user inputs.. when the user logs in and his/her password is in Uppercase(saved in database) but forgets to type in uppercase. and it would display warning message saying invalid password...
View 2 Repliesi have a program, three radios, and 2 check boxes. the Radios use a constant value and do a multiplication. check one applies a discount. no problem.
the last takes the values of all three radios does a comaparison and displays a label if false, performs a subtraction if true and shows savings.problem>
very convoluted using if statements. and the output is often wrong(i know this is a logic error) i can not find the fault.
would it be easier to use case statments. can and will post code if requested. as it is in if then format currently it is rather long.
Sometimes the answer is so blindingly obvious i fail to see it.
changing a character case for exaple i have a textbox i want that when i write a word it should change case by character to character like : if i write " case " then text box should display " cAsE "
View 3 Replies