Kofax DM API Manuel d'utilisateur télécharger pdf (Page 35)

THE DM ARCHITECTURE 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

1 2 ... 30 31 32 33 34 35 36 37 38 39 40 ... 527 528

Commentaires sur ces manuels

Pas de commentaire