gistfile1.vb

Dim rowsCounter As Integer = 0
Dim dr as DataRow
Sub ActiveReport_FetchData(eof)
  rpt.fields("rptDate").value = Now()
  rpt.fields("rptTitle").value = "FOR " & asOfDate & " USING " & camel & " CAMEL SCORE"
  'rpt.fields("header1").value = dataclass.GetParm("year") & " DEPOSIT"
  rpt.fields("header1").value = "DEPOSIT"
If rowsCounter < ds.Tables(0).Rows.Count Then
  eof = false
  dr = ds.Tables(0).Rows.Item(rowsCounter)
  rpt.fields("statedesc").value 		= dr("state_desc")
  rpt.fields("cuname").value		= dr("cuName")
  rpt.fields("camel").value		= dr("camel")
  rpt.fields("asinum").value		= dr("asi_Num")
  rpt.fields("yearendshares").value	= dr("curr_Shares")
  rpt.fields("depositrequired").value	= dr("deposit_required")
  rpt.fields("yeardeposit").value	= dr("year_deposit")
  rpt.fields("duepayable").value	= dr("duePayable")
  rpt.fields("cycledate").value		= dr("cycle_date")
  rowsCounter=rowsCounter + 1
Else
  eof = true
End If
End Sub