Subversion Repositories DevTools

	'-----------------------------------------------------------------------------------------------------------------

    ' Combo_Multi

    ' Multi column combo

    '   - Uses a fixed length font to allow alignment of columns

    '     Column widths are specified

	'     Columns are separated by a "|" 

    '

    ' sName - Name of Combo

    ' aList - List array with the following columns:

	'      column key, column values (separated by comas), the word "selected" for selected item

	'   e.g  

	'      1, Jack, Smith, "W.A"

	'      2, Jill, Smith, "S.A", "selected"   

	' bOneBlank - to add a blank combo item 

	' sAttributes - HTML attributes

	' iColumnCount - The number of columns to be displayed in the combo.

	' sColumnWidth - csv string containing the combo column widths

	'

	Public Function Combo_Multi ( sName, aList, bOneBlank, sAttributes, iColumnCount, sColumnWidth)

		'=== List Definition ===

		Dim compSTR

		Dim rowNum, numOfRows, colNum

		Dim sColVals, sColVal, sPad

		Dim iColLen, iPadLen, iValLen, i

		Dim arrColWidths

		compSTR = ""

		'/* Generate Combo */		

		compSTR = compSTR &"<select name='"& sName &"' "& sAttributes & "  style='font-family:Courier New,Lucida Console' " &" "& msDisabled &">"

		'-- Blank Item --

		If bOneBlank Then compSTR = compSTR &"<option value=''></option>"		

		If IsArray(aList) Then			

			numOfRows = UBound( aList, 2 )

			For rowNum = 0 To numOfRows

			  ' format columns of row

			  arrColWidths = split(sColumnWidth,",")

  			  sColVals = ""

  			  For colNum = 0 To iColumnCount-1

  			    ' get column width

  			    iColLen = arrColWidths(colNum)

  			    ' format column

  			    sColVal = aList(colNum + 1, rowNum)

  			    if IsNull(sColVal) then sColVal = ""

  			    iValLen = Len(sColVal)

  			    iPadLen = iColLen - iValLen

  			    ' if column value length greater than truncate

  			    if iPadLen < 0 then

  			      iPadLen = 0

  			      sColVal = Mid(sColVal,1,iColLen)  ' truncate column value to column length

  			    end if  

                ' generate pad string with non-breaking spaces

                sPad = ""

  			    For i = 0 to iPadLen-1

			      sPad = sPad & " "

			    Next

		        sColVals = sColVals & " " & sColVal & sPad & " |"

			  Next

			  sColVals = Mid(sColVals,1,Len(sColVals)-1)

			  compSTR = compSTR &"<option value='"& aList( 0, rowNum ) &"' "& aList( iColumnCount + 1, rowNum ) &">"& sColVals &"</option>"

			Next

		End If

		compSTR = compSTR &"</select>"

		Combo_Multi = compSTR

	End Function