Jag kan inte få till detta vet ej om det kan funka, någon som har tid att kika lite.

Har en fungerande funktion med en vanlig list1 men vill få det att funka med en ListView.
rsCount = ListView2.ListItems.Count - 1
rsCount = ListView1.ListItems.Count - 1
'rsCount = List10.ListCount - 1
' cboCount = List1.ListCount - 1


For i = 0 To rsCount
For j = 0 To cboCount

If ListView2.ListItems(i) = ListView1.ListItems(j) Then ListView1.RemoveItem j
' If List10.List(i) = List1.List(j) Then List1.RemoveItem j



Next j
Next i

Tobbe

Kul att se lite VB6 kod.
Det här ser mystiskt ut.
Du har samma variabel för två olika ListView (antal rader)
Är dom alltid lika ?
<code>
rsCount = ListView2.ListItems.Count - 1
rsCount = ListView1.ListItems.Count - 1
</code>
Vad är det som skall ha hänt när det funkar.
Berätta svepande vad du förväntar dig

Jag är sugen på att hjälpa och få till det.

Jo jag använder två listboxar.

Jag läser in namn från två olika tabeller från en access databas i listboxarna för att sedan rensa bort dom med samma namn.

Det jag är ute efter nu är att få men både namn och tid i samma listbox eller listview.

Public Sub FillList20()
On Error GoTo err:

Dim rsCount As Long, cboCount As Long, i As Long, j As Long
Dim dbs As Database
Dim rs As Recordset
Dim X As Integer
Dim rad As Integer
Dim sday As String
Dim A As String
Dim Y As String

MousePointer = vbHourglass
A = Format(MonthView1.Value(), "dddd", vbMonday)

If A = "måndag" Then
A = "0"
End If
If A = "tisdag" Then
A = "1"
End If
If A = "onsdag" Then
A = "2"
End If
If A = "torsdag" Then
A = "3"
End If
If A = "fredag" Then
A = "4"
End If
If A = "lördag" Then
A = "5"
End If
If A = "söndag" Then
A = "6"
End If
List1.Clear
List10.Clear

Set rs = dbs.OpenRecordset("SELECT [Namn] FROM Närvaro Where Avd = '" & Lblavd.Caption & "' and (" & "Day" & (A) & ") > 0 ", dbOpenSnapshot)
Do While Not rs.EOF
List1.AddItem rs.Fields("Namn").Value
rs.MoveNext
Loop

Set rs = dbs.OpenRecordset("select [Namn] from (Frånvaro) Where Datum = '" & Label13.Caption & "' And Avd = '" & Lblavd.Caption & "' and Perioder > 200", dbOpenSnapshot)



Do While Not rs.EOF
List10.AddItem rs.Fields("Namn").Value
rs.MoveNext
Loop




'rs.Close
rsCount = List10.ListCount - 1
cboCount = List1.ListCount - 1


For i = 0 To rsCount
For j = 0 To cboCount

If List10.List(i) = List1.List(j) Then List1.RemoveItem j


Next j
Next i

Sen om man klickar på ett namn i list1 körs denna kod, men jag vill få med detta direkt i list ett på samma post.

ex. Kalla Svensson 300 p

Private Sub KvarTid()
On Error GoTo err:

Dim sPer As String
Dim s14 As String
Dim i As String

MousePointer = vbHourglass

Dim dbs As Database
Dim rs As Recordset

i = Format(MonthView1.Value(), "dddd", vbMonday)

If i = "måndag" Then
i = "0"
End If
If i = "tisdag" Then
i = "1"
End If
If i = "onsdag" Then
i = "2"
End If
If i = "torsdag" Then
i = "3"
End If
If i = "fredag" Then
i = "4"
End If
If i = "lördag" Then
i = "5"
End If
If i = "söndag" Then
i = "6"
End If




Set rs = dbs.OpenRecordset("select Sum(" & "Per" & (i) & ")As iSum from Närvaro Where Avd = '" & Lblavd.Caption & "' and Namn = '" & List1.Text & "'", dbOpenSnapshot)

Do While Not rs.EOF
LblPer2 = rs.Fields("iSum").Value & vbNullString
rs.MoveNext
Loop

Set rs = dbs.OpenRecordset("select sum(BokTime)As isum from Tider where Datum ='" & MonthView1.Value & "' And Avd = '" & Lblavd.Caption & "' and Mek = '" & List1.Text & "'", dbOpenSnapshot)

Do Until rs.EOF

lblCTid = rs.Fields("isum").Value & vbNullString

rs.MoveNext
Loop

If lblCTid = "" Then
lblCTid = "0"
End If

lblCTid = LblPer2 - lblCTid & " :p"

MousePointer = vbNormal
Exit Sub

Vet inte om du blir klokare av min förklaring.

Tobbe

Ok tror jag har förstått.
Där det nu står List1 o List10 skall ersättas med ListView1 o ListView2
samt
Det jag är ute efter nu är att få med både namn och tid i samma listview.

Hej Sven

Jag är helt slut i huvudet efter att få detta att funka

Det jag vill utföra är att plocka värden från tre olika tabeller och visa det i en listview eller flexgrid.

typ som detta
Jan Andersson Icon 300 p
Kalle Anka icon 250 p
osv.

Har försökt att få till någon form av inner join eller left join men får helt enkelt inte till det

Har alla namn i listboxen och vill loppa igenom alla items till en sökning för att visa i en listview, men får helt enkelt inte till det.


Tobbe

Hur går det bästa vän ?

Har för lite på fötterna för att kunna simuler.

Blev lite duktig på ListView

Hej Sven!

Fick till det med en flexgrid där jag gör sökningarna som sparas i ex sData1 osv

Som jag sen plockade till flexgriden inte någon snygg lösning men funkar hygligt.

Tobbe