Kofax DM API - Manual (Page 38)

18 C HAPTER 1
DM Search Transactions
rec.GetPropertyValue("SYSTEM_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("APP_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("TYPE_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("LASTEDITDATE") _
& Chr(9)
row = row & _
rec.GetPropertyValue("AUTHOR_ID") _
& Chr(9)
row = row & _
rec.GetPropertyValue("STATUS")
reGrid.AddItem row
End If
i = i + 1
Wend
rec.ReleaseResults
End If
Screen.MousePointer = vbDefault
End Sub
Private Sub cmdShowLookup_Click()
frmLookup.Show vbModal
End Sub
Private Sub Form_Resize()
Dim i As Long
Dim cw As Long
reGrid.Cols = 8
cw = reGrid.Width / reGrid.Cols
For i = 0 To reGrid.Cols - 1
reGrid.ColWidth(i) = cw
Next
End Sub
Private Sub reGrid_Click()
If reGrid.row <= 0 Then
MsgBox "Select valid row"
Exit Sub
End If