@DIV
' フォーカスを チェック部分以外に移動して、チェックされた事を確定させる
Me.LboxGrid2.SetFocusCell(0, "COL")

' 最初の行から読むように初期化
Me.LboxGrid2.SetCurrentRow()

Dim strColName As String

' 間に挟む文字列
Dim strParts As String = "||','||"

' 加工用変数( 初期値は空文字列 )
Dim strLine As String = ""

' 全ての行を読み込む
Do While (Me.LboxGrid2.FindNextRow())

	@C:green(' チェックされていた場合の処理)
	If Me.LboxGrid2.GetColumnBoolean("CHECK") Then
		' チェックされている行の列名
		strColName = Me.LboxGrid2.GetColumnText("COL")

		@C:green(' こういう処理のセオリー
		' 最初以外は、前に間に挟む文字列をセット
		' 最初かどうかは、strLine が空かどうかで判断)
		If strLine <> "" Then
			strLine = strLine + strParts
		End If

		@C:green(' strLine(一行ぶんの文字列) 列を追加)
		strLine = strLine + strColName

	End If

Loop

Console.WriteLine(strLine)

strLine = "select " + strLine + " from " + TableName

Console.WriteLine(strLine)
@END

↓strLine の内容のサンプル
@DIV
select 社員コード||','||氏名||','||フリガナ||','||所属||','||性別||','||作成日||','||更新日||','||給与||','||手当||','||管理者||','||生年月日 from 社員マスタ
@END