Sadržaj:

One-lineri
Čemu nazivi polja kad mogu brojevi
 

One-lineri

Zbog svog golemog C iskustva koje je kulminiralo pisanjem cijelog programa u Mainu, Maddog je očito bio rodonačelnik onelinera u Visual Basic programima. Međutim, ni drugi šampioni nisu bili imuni na to pa se često moglo naići na ovakve razumljive i debugger-friendly linije:
 

i = 0: intKA1 = 0: Titles = True: FLAG_EmptyTitle = 0

U rijetkim napadima poštenja, očito kada je i njemu bilo jasno da je primijenio više od jedne šampionske metode, jadnom nasljedniku bi lijepo označio da se nalazi na šampionskoj mini i da bude oprezan, kao u sljedećem retku gdje je kombinirao one-liner i magični broj:

If s = "" Then KA1(0, i) = rsClientA.Fields(0).Value: KA1(1, i) = 6 'HARD CODE !!!!!

Čemu nazivi polja kad mogu brojevi

Ostajemo dalje na velikoj legendi, makar je ovdje opisana tehnika u najboljoj maniri Stinkyeve škole. Dakle, umjesto korištenja naziva polja u recordsetu, otežajmo onom kasnije život i koristimo indekse stupaca. Ako se kasnije promijeni redoslijed polja u queryu i cijela logika ode k vragu, koga briga. Nisu se jednom Stinkyevi gridovi raspadali jer je autor referencirao polja preko indeksa a ne imena. Evo jednog snippeta za uživanje. Primijetite da je u napadu loše savjesti majstor ipak komentirao o kojem polju se radi.

For j = 0 To intKA1   If rsClients.Fields(8).Value = KA1(0, j) Then     rsClients2.Fields(8).Value = KA1(1, j)     j = 0: Exit For   End If Next j For k = 0 To intKT   If rsClients.Fields(8).Value = KT(0, k) Then     rsClients2.Fields(9).Value = KT(1, k)     k = 0: Exit For   End If Next k rsClients2.Fields(10).Value = intAgent 'AGENT !!! rsClients2.Fields(11).Value = 1