Advertisement
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: |
Dim tmpDt As New DataTable
Dim tmpDt2 As New DataTable
Dim BS As BindingSource = Nothing
Dim i As Integer
tmpDt = ParameterTableBLL.ColumnsForSortingTable(sender.GetType.GetProperty("SelectedValue").GetValue(sender, Nothing).ToString)
BS = New BindingSource
Bs.DataSource = tmpDt
DGView.Name = sender.GetType.GetProperty("SelectedValue").GetValue(sender, Nothing).ToString
DGView.DataSource = BS
sortingNav.BindingSource = BS
DGView.SelectionMode = DataGridViewSelectionMode.CellSelect
For i = 0 To tmpDt.Rows.Count - 1
If tmpDt.Rows(i).Item(2).ToString <> "" Then
bFoundContent = True
Exit For
End If
Next
tmpDt2 = New DataTable
tmpDt2.Columns.Add(New DataColumn)
For i = 1 To tmpDt.Rows.Count
tmpDt2.Rows.Add(i)
Next
ordinalColumn.DataPropertyName = tmpDt2.Columns(0).ColumnName
ordinalColumn.DataSource = tmpDt2
ordinalColumn.ValueMember = tmpDt2.Columns(0).ColumnName
ordinalColumn.DisplayMember = ordinalColumn.ValueMember
ordinalColumn.HeaderCell.Value = "NEW ORDINAL"
DGView.Columns.Add(ordinalColumn)
'Update procedure
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim tmpCb As New ComboBox
For i = 0 To DGView.Rows.Count - 1
DGView.Rows(i).Cells(3).Selected = True
tmpCb = CType(DGView.EditingControl, ComboBox)
If Not IsNothing(tmpCb) Then
ParameterTableBLL.updateOrdinals(DGView.Name, tmpCb.SelectedValue.ToString, DGView.Rows(i).Cells(0).Value.ToString)
End If
DGView.Rows(i).Cells(3).Selected = False
Next
End Sub
|
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
|
Loading Advertisement... |