Gjoreski 27.06.2017 23:58
Predmet:MSFlexGrid Spajajn kolone

Prije par dana sam naiso na jedan zadatak u koj sam morao spoite vise polja od kolone po odredzeni redosled.
Uspio sam spoiti polja ali ne kako je bila moja zelja.
Pitajne je.
Kako spoite vise polje u kojoj imamo isti podatke a da ih grid ne spoi u jedo poje?

zxz 28.06.2017 16:36
Predmet:Re: MSFlexGrid Spajajn kolone

posto nema teme ja cu ovdje a ti otvori novu temu.
Postavi jedan flex grid i daj mu ime MSF.
U property row stavi 1
Sirine boje kolona i ostalo podesi sam.
Kod ispod mozrs staviti na on load ii tako nesto.

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim SQL As String
  2. Dim RS As Recordset
  3. Dim Temp(10) As String
  4. Dim i As Integer, RsBrojac As Long
  5. Dim RedStart(1) As Integer, RedKraj(1) As Integer
  6. Dim Reper(1) As Integer
  7.  
  8. 'Kolone
  9. MSF.Cols = 10
  10. MSF.TextMatrix(0, 1) = "Cjenovnik"
  11. MSF.TextMatrix(0, 2) = "Tip plaanja"
  12. MSF.TextMatrix(0, 3) = "Iznos"
  13. MSF.TextMatrix(0, 4) = "Koli
  14. ina"
  15. MSF.TextMatrix(0, 5) = "Podskupina"
  16. MSF.TextMatrix(0, 6) = "Kolicina" 'Dvije kolone za svaku podskupnu odnosno mjsifra
  17. MSF.TextMatrix(0, 7) = "Meni"
  18. MSF.TextMatrix(0, 8) = "Kolicina" 'Za svaki meni jedna koli
  19. ina
  20. MSF.TextMatrix(0, 9) = "Naziv"
  21.  
  22. 'Konekcija
  23. SQL = "SELECT * FROM QQ"
  24. Set RS = New ADODB.Recordset
  25. RS.CursorLocation = adUseClient
  26. RS.Open SQL, cn, adOpenStatic, adLockOptimistic
  27.  
  28. 'Merge kolona
  29. MSF.MergeCells = flexMergeFree
  30. MSF.ColAlignment(3) = flexAlignRightCenter
  31. MSF.ColAlignment(4) = flexAlignRightCenter
  32. MSF.ColAlignment(6) = flexAlignRightCenter
  33. For i = 1 To 9
  34. 'If i <> 4 Then
  35. MSF.MergeCol(i) = True
  36. 'End If
  37. Next i
  38. 'Iscitavanje podataka
  39. Temp(9) = RS.Fields(3)
  40. Temp(10) = RS.Fields(0)
  41. Do While Not RS.EOF
  42.     For i = 0 To 5
  43.     Temp(i) = RS.Fields(i)
  44.     Next i
  45. If Temp(9) <> Temp(3) Then
  46. GoSub Kolone1
  47. End If
  48.  
  49. 'Kolone koje se odnose na cjenovnik
  50. If Temp(10) <> Temp(0) Then
  51. GoSub Kolone2
  52. End If
  53.    
  54. With Me.MSF
  55. .Rows = MSF.Rows + 1
  56. .TextMatrix(.Rows - 1, 0) = .Rows - 1
  57. .TextMatrix(.Rows - 1, 1) = Temp(0)
  58. .TextMatrix(.Rows - 1, 5) = Temp(3)
  59. .TextMatrix(.Rows - 1, 7) = Temp(4)
  60. .TextMatrix(.Rows - 1, 9) = Temp(5)
  61. End With
  62. 'Cijene za MjSifra
  63.  
  64.  
  65. Temp(10) = Temp(0)
  66. Temp(9) = Temp(3)
  67. Temp(7) = Temp(1)
  68. Temp(8) = Temp(2)
  69. RS.MoveNext
  70. Loop
  71. GoSub Kolone1
  72. GoSub Kolone2
  73. Exit Sub
  74. Kolone1:
  75. RedKraj(1) = MSF.Rows - 1
  76. Reper(0) = (RedKraj(1) - RedStart(0)) / 2
  77.     If Reper(0) = 0 Then
  78.     MSF.Rows = MSF.Rows + 1
  79.     MSF.TextMatrix(MSF.Rows - 1, 1) = MSF.TextMatrix(MSF.Rows - 2, 1)
  80.     MSF.TextMatrix(MSF.Rows - 1, 5) = MSF.TextMatrix(MSF.Rows - 2, 5)
  81.     MSF.TextMatrix(MSF.Rows - 1, 7) = MSF.TextMatrix(MSF.Rows - 2, 7)
  82.     MSF.TextMatrix(MSF.Rows - 1, 9) = MSF.TextMatrix(MSF.Rows - 2, 9)
  83.     MSF.TextMatrix(MSF.Rows - 1, 8) = " "
  84.     MSF.TextMatrix(MSF.Rows - 2, 8) = " "
  85.     MSF.Rows = MSF.Rows + 1
  86.     MSF.RowHeight(MSF.Rows - 1) = 0
  87.     RedKraj(1) = MSF.Rows - 1
  88.     Reper(0) = (RedKraj(1) - RedStart(0)) / 2
  89.     End If
  90.     RedKraj(0) = RedKraj(1) - Reper(0) - 1
  91.     For i = RedStart(0) To RedKraj(0)
  92.     MSF.TextMatrix(i + 1, 6) = "0"
  93.     Next
  94.     RedKraj(0) = i + 1
  95.     For i = RedKraj(0) To RedKraj(1)
  96.     MSF.TextMatrix(i, 6) = " 0"
  97.     Next i
  98. RedStart(0) = RedKraj(1)
  99. Return
  100.  
  101. Kolone2:
  102. RedKraj(1) = MSF.Rows - 1
  103. Reper(0) = (RedKraj(1) - RedStart(1)) / 2
  104. RedKraj(0) = RedKraj(1) - Reper(0) - 1
  105.     If Reper(0) = 0 Then
  106.     RedKraj(1) = RedKraj(1) + 1
  107.     End If
  108.     For i = RedStart(1) To RedKraj(0)
  109.     MSF.TextMatrix(i + 1, 2) = "G"
  110.     MSF.TextMatrix(i + 1, 3) = Temp(7)
  111.     MSF.TextMatrix(i + 1, 4) = "0"
  112.     Next i
  113.     RedKraj(0) = i + 1
  114.     For i = RedKraj(0) To RedKraj(1)
  115.     MSF.TextMatrix(i, 2) = "F"
  116.     MSF.TextMatrix(i, 3) = " " & Temp(8)
  117.     MSF.TextMatrix(i, 4) = " 0"
  118.     Next i
  119. RedStart(1) = RedKraj(1)
  120. Return

Gjoreski 29.06.2017 15:10
Predmet:Re: MSFlexGrid Spajajn kolone

Ovo radi. Hvala puno