Prikazi cijelu temu 01.08.2013 23:13
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Kasa MSAccess to VB6
eve kako dojde ova kaj mene
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim i
  2.         i = 0
  3.         Do While Not rsStavki.EOF
  4.            Col2.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
  5.            If IsNull(rsStavki!Artikal_Ime) Then
  6.               Col2.ValueItems.Item(i).Value = ""
  7.             Else
  8.               Col2.ValueItems.Item(i).Value = rsStavki!Artikal_Ime
  9.             End If
  10.               i = i + 1
  11.               rsStavki.MoveNext
  12.          Loop
  13.