Sub JobDone(Job As HttpJob)
If Job.Success = False Then
Log("Error: " & Job.ErrorMessage)
Msgbox (Job.ErrorMessage, "Job Error")
ProgressDialogHide
Else
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
Select result.Tag
Case "LoadData"
'Tampilkan data ke dalam bentuk Table.
tblData.LoadRDCResult(result, True)
'Set alignment for each cell
Dim alignments() As Int
alignments = Array As Int (Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.LEFT, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL), Bit.Or(Gravity.CENTER, Gravity.CENTER_VERTICAL))
tblData.SetCellAlignments(alignments)
'---------------------------
ProgressDialogHide
If result.Rows.Size = 0 Then
ToastMessageShow("Data is empty...", True)
Else
ToastMessageShow("Long Touch selected row to see detail advertising...", True)
tblData.JumpToRowAndSelect(0,0)
End If