You could use a ComboBox control with the autocomplete items filled with your names. Then, as the users type into the box, a drop down will appear with the possible names. (Make use of the comobox's SelectedValueChanged event.
For example:
Private Sub FillComboBox(ByVal dt As DataTable)
Try
'Clear the combobox
ComboBox1.Items.Clear()
'Fill the lookup as well
Dim acSC As New AutoCompleteStringCollection
If dt.Rows.Count > 0 Then
For Each dr As DataRow In dt.Rows
ComboBox1.Items.Add(dr("Name")) 'Place the name of the 'NameColumn' from the database inside the quotes.
acSC.Add(dr("Name")) 'Same here
Next
With ComboBox1
.AutoCompleteCustomSource = acSC
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
End With
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
You will have to program on the ComboBox's SelectedIndexChanged event and fire the code then.
You will have to retreive the value from the database and post it to the textbox.
For example:
Private Sub combItems_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles combItems.SelectedIndexChanged
Try
Query = "SELECT itemStock FROM tbl_items WHERE itemName='{0}'"
String.Format(Query,TryCast(sender,ComboBox).SelectedItem.Text)
MySqlCommand = New MySqlCommand(Query, CNN)
MySqlDataReader = MySqlCommand.ExecuteReader
Do While MySqlDataReader.Read
TextBox1.Text = MySqlDataReader(0)
Loop
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Dim rowcnt As Integer = (dtOrder.Rows.Count - 1)
For x = 0 To rowcnt
If IsNumeric((dtOrder.Rows(x)(3).ToString)) Then
val = CInt(dtOrder.Rows(x)(3).ToString)
With fractColumn
.ColumnName = "xttl"
.Expression = ((dlgNewTop.Dec2Frac(val, 2)))
End With
End If
Next
With dtOrder.Columns
.Add(fractColumn)
End With
Will only add the last because that is the only row you are telling it to add.
This code is outside the for:
With dtOrder.Columns
.Add(fractColumn)
End With
Therefore, the only value added would be the last value it sees. (The value of the column from the last row of dtOrders)
Try This instead:
For x = 0 to dtOrder.Rows.Count - 1
If IsNumeric((dtOrder.Rows(x)(3).ToString)) Then
val = CInt(dtOrder.Rows(x)(3).ToString)
With fractColumn
.ColumnName = "xttl"
.Expression = ((dlgNewTop.Dec2Frac(val, 2)))
End With
End If
With dtOrder.Columns
.Add(fractColumn)
End With
Next
One possible problem ( that I've had with CR ) could be that the report was built on a 64bit CR machine, and published. We had to make sure it was a 32bit machine to fix our problem.
It did the same, timed out on pull, but pulled fine in GUI.
Private Sub WriteToProgressBar(ByVal pbIn As ProgressBar, ByVal sTextToDraw As String, ByVal f As Font, ByVal b As Brush)
Try
Using g As Graphics = Me.CreateGraphics
'Check to see if text is to wide/tall
If sTextToDraw.Length * f.Size > pbIn.Width Or _
f.Height > pbIn.Height Then
Throw New ArgumentException("Text is to large for progress bar!")
Else
Dim iTryGetCenterW As Integer = (pbIn.Width / 2) - ((sTextToDraw.Length * f.Size) / 2)
Dim iTryGetCenterH As Integer = (pbIn.Height / 2) - (f.Size / 2)
g.DrawString(sTextToDraw, f, b, New Point(iTryGetCenterW, iTryGetCenterH))
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
You will have to take the progress bar's location into consideration as well. But you must take the progress bar's location into consideration.
I have had problems with this using SSRS (SQL Server Reporting Services) and it turns out that it is a process that terminates and must be restarted to pull a report.
If you are only wanting to increase the width (on the left) you will have to reposition the panel on resize to give the user the illusion it is only increasing the width on the left.
For exmaple:
Do While Panel1.Width < 730
Panel1>Width += 1
Panel1.Location = New Point(Panel1.Location.X - 1, Panel1>Location.Y)
Loop
You should look at using the ComboBox_SelectedIndexChanged event.
This can be handled like so:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Try
TextBox1.Text = ComboBox1.SelectedValue
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
First off, you never said how you store the student count. We can't see where this is being stored, so we can't fully help you with your desired format.
Second off, the String.Format statement is incorrect, you would be passing in PaperNo 5 and would get:
5 : 5
As an outcome
The String.Format documentation can be found here.
IFF(IsNothing(DataGridView2.Rows(i).Cells(2).Value.ToString) Or DataGridView2.Rows(i).Cells(2).Value.ToString = String.Empty, String.Empty, DataGridView2.Rows(i).Cells(2).Value.ToString)
The IIF qualifies the statement then pulls the value given. In this example would be the equivilent of:
IF IsNothing(DataGridView2.Rows(i).Cells(2).Value.ToString)) Or DataGridView2.Rows(i).Cells(2).Value.ToString = String.Empty Then
row2 = String.Empty
Else
row2 = DataGridView2.Rows(i).Cells(2).Value.ToString
End If
A true value should be failsafe like String.Empty or 0. A false value should be the actual column.
Just a note though, if you WANT null values passed to the database use:
Dim Found As Boolean
For Each r As DataRow In dt.Rows
Found = False
For i = 0 To dt.Columns.Count
If r(i) = "ThisValue" Then
Found = True
Exit For
End If
Next
If Found Then Exit For
Next
Also, I have posted another solution on your other post.
