Kofax DOKuStar Validation - Manual (Page 30)

DOKuStar Validation Programming Manual Page • 26
Table data
We now fill the table field in our example. To keep the code short, we only add two rows:
Private Sub FillData(dat As DOKuStarValidation.Data)
Dim doc As Document
Dim subdoc As Document
Dim imgDataSource As ImageDataSource
Dim fld As Field
Dim srcInfo As ImageSourceInfo
Dim tableFld As TableField
Dim row As TableRow
Dim cell As Field
'*
'*** add a document
'*
Set doc = MyData.Documents.Add("Letter")
doc.Fields("Sender").Value = "Océ Document Technologies"
Set subdoc = doc.Documents.Add("CoveringLetter")
'* add a datasource (image) to the subdoc "CoveringLetter"
Set imgDataSource = MyData.DataSources.Add("dataset::ImageDataSource")
imgDataSource.FileName = App.Path & "\Source_1.tif"
subdoc.DataSources.Add imgDataSource
Set subdoc = doc.Documents.Add("Invoice")
' subdoc.Fields("TotalAmount").Value = "100.00"
Set fld = subdoc.Fields("TotalAmount")
fld.Value = "547,47"