private Sub GetPhoto
Try
Dim MySQL As String
Dim Cursor1 As Cursor
Dim FileName As String
Dim j As Int
Dim ID As Int
svList.Panel.RemoveAllViews
ItemHeight=200dip
MySQL="select * from tblNotesMediaFiles where PlacementLocalID=? and NoteHour=? and JobDate=? And Shift=? And FileType='Photo'"
Cursor1=SQL1.ExecQuery2(MySQL,Array As String(Main.SelectedPlacementLocalID,NoteEdit.VMHour,Main.SelectedDOS,Main.SelectedShift))
Cursor1.Position=0
If Cursor1.RowCount=0 Then
Cursor1.Close
Return
End If
For i=0 To Cursor1.RowCount-1
Cursor1.Position=i
FileName=Cursor1.GetString("FileName")
ID=Cursor1.GetInt("ID")
Dim IV As ImageView
Dim bp As Bitmap=GetBitmap(FileName)
If bp=Null Then
Continue
End If
j=j+1
IV.Initialize("IV")
IV.Tag=FileName & "~" & ID
IV.Bitmap=bp
svList.Panel.AddView(IV,0, ItemHeight * (j-1), svList.Width, ItemHeight - 2dip)
Next
svList.Panel.Height= ItemHeight *j
Catch
Log("GetPhoto " & LastException)
modFun.ShowError("GetPhoto " & LastException)
End Try
End Sub