Kofax DM API - Manual (Page 35)

T HE DM A RCHITECTURE 15
DM Search Transactions
row = row & _
rec.GetPropertyValue("TYPIST_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 Form_Resize()
Dim i As Long
Dim cw As Long
reGrid.Width = Width - 100
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
reGrid.row = reGrid.RowSel
reGrid.Col = 1
txtSelDocNumber = reGrid.Text
docnumber = reGrid.Text
End Sub
Private Sub reGrid_DblClick()
Dim c
Dim dn As Variant
c = reGrid.Col
reGrid.Col = 1
dn = reGrid.Text
If IsNumeric(dn) Then
'Extract routine in frmVersions form_load