Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 13th, 2012  |  syntax: None  |  size: 0.63 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. LOCAL itmcost, qtr1, qtr1_amount, qtr2, qtr2_amount, qtr3, qtr3_amount, qtr4, qtr4_amount, amount
  2.  
  3. SELECT itemfile
  4.  
  5. WITH this
  6.         .SetAll("Fontsize", 8)
  7.         .SetAll("Fontname", "MS Sans Serif")
  8. ** Para mag compute ang qtr amount kng butangan quantity ang mga qtr columns, item cost * qtr columns  
  9.         .column7.controlsource = "itmcost * qtr1"
  10.         .column9.ControlSource = "itmcost * qtr2"
  11.         .column11.ControlSource = "itmcost * qtr3"
  12.         .column13.controlsource = "itmcost * qtr4"             
  13. ENDWITH
  14.  
  15. WITH this
  16.         .column16.ControlSource = "qtr1_amount+qtr2_amount+qtr3_amount+qtr4_amount"
  17. endwith
  18.  
  19. thisform.grdItemfile.SetFocus
  20. thisform.grdItemfile.Refresh
create a new version of this paste RAW Paste Data