' Sub Globals
Private lstIDs As List : lstIDs.Initialize
Private ErrMsg As String
ErrMsg = LV_Fill_Descr_ID(lvAziende, modFunzioni.rs, "Descrizione", "ID", lstIDs, True)
If ErrMsg.Length > 0 Then
Msgbox(ErrMsg, "Caricamento Aziende")
End Sub
Private Sub lvAziende_ItemClick (Position As Int, Value As Object)
txtAzienda.Text = Value
txtId.Text = lstIDs.Get(Position)
End Sub
Public Sub LV_Fill_Descr_ID(lvtToFill As ListView, Cur As Cursor, DescFieldName As String, IDFieldName As String, lstIDs As List, Clear As Boolean) As String
Private ErrMsg As String = ""
If Clear Then
lvtToFill.Clear
lstIDs.Clear
End If
Try
For i = 0 To Cur.RowCount - 1
Cur.Position = i
lvtToFill.AddSingleLine(Cur.GetString(DescFieldName))
lstIDs.Add(Cur.GetString(IDFieldName))
Next
Catch
ErrMsg = LastException.Message
End Try
Return ErrMsg
End Sub