Listing 33.7 33LIST07.TXT - adowanie przegldarki tabelarycznej GrdChkReg

SQLSTR = "select * from LineItem where AccountKey = " & current_account & " order by [entry date]"
  Set ChkSet = ChkDb.OpenRecordset(SQLSTR, dbOpenDynaset)
  Set paySet = ChkDb.OpenRecordset("Payee", dbOpenDynaset)
  Tc = Chr$(9)
  Prev_balance = 0
  Do Until ChkSet.EOF
    grdChkReg.Row = grdChkReg.Rows - 1
    grdChkReg.Col = 6
    Prev_balance = Val(grdChkReg.Text) + 0
    grid_text = ""
    If IsNull(ChkSet("chknum")) Then
      grid_text = ChkSet("itemkey") & Tc & " "
    Else
      grid_text = ChkSet("itemkey") & Tc & ChkSet("chknum")
    End If
    grid_text = grid_text & Tc & ChkSet("Entry date")
    paySet.FindFirst "PayeeId = " & ChkSet("PayeeKey")
    If paySet.NoMatch Then
      grid_text = grid_text & Tc & "No Payee found"
    Else
      grid_text = grid_text & Tc & paySet("PayeeName")
    End If
    If ChkSet("Entrytype") = "C" Then
      grid_text = grid_text & Tc & Format(ChkSet("amtpayed"), "#,##0.00") & Tc & "0.00"
      bal_amount = Prev_balance - ChkSet("amtpayed")
 
    Else
      grid_text = grid_text & Tc & "0.00" & Tc & Format(ChkSet("amtdeposit"), "#,##0.00")
      bal_amount = Prev_balance + ChkSet("amtdeposit")
    End If
    grid_text = grid_text & Tc & Format(bal_amount, "#,##0.00") & Tc & ChkSet("clearrecv")
    CkBkMain.lblBalance.Caption = Format(bal_amount, "#,##0.00")
    grdChkReg.AddItem grid_text
    ChkSet.MoveNext
    grdChkReg.FixedRows = 1
    grdChkReg.FixedCols = 2
  Loop
  ChkSet.Close
  paySet.Close
