This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub SplitColumn( _ | |
ByVal LastRow As Long, _ | |
ByVal DataCol As String, _ | |
ByVal FirstPartCol As String, _ | |
ByVal SecondPartCol As String, _ | |
ByVal DelimCharacter As String _ | |
) | |
Dim data_col As String, col_one As String, col_two As String, delimiter As String | |
data_col = DataCol |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
++++++++++ set loop counter to ten | |
[ | |
>>>>+++ increase 5th cell by 3 | |
<<<<- decrease loop counter | |
] | |
>>>>++ increase 5th cell by 2 to make the 'Space' ASCII code | |
<<<<++++++++++ reuse 1st cell as loop counter increase to ten | |
[ | |
>+++++ increase 2nd cell by 5 | |
>+++++ increase 3rd cell by 5 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub theGrid_DataBound(ByVal sender as Object, ByVal e as System.EventArgs) Handles theGrid.DataBound | |
' Create a GridView object and cast the GridView object we're working on to it | |
Dim gv As ASPxGridView = TryCast(sender, ASPxGridView) | |
' Loop through the visible columns (as they are set in the ASP or somewhere else in your code) | |
For i As Integer = 0 To gv.VisibleColumns.Count | |
' Match the type of the current column to the GridViewCommandColumn type and | |
' then hide the column and break out of the loop | |
If TypeOf (gv.VisibleColumns(i)) Is GridViewCommandColumn Then |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
''' | |
' Note that Split always returns a 0-indexed array | |
''' | |
Option Explicit | |
Function flip_name(comma_sep_name As String) | |
Dim name_parts() As String | |
name_parts = Split(comma_sep_name, ",") | |
NewerOlder