23. april 2003 - 17:26
Der er
6 kommentarer og 1 løsning
Løkke til indsættelse i MSFlexGrid
Jeg skal bruge en kode til at finde en tom plads i en kolonne i et FlexGrid, og jeg tænkte at det kunne lade sig gøre med en løkke Nu er problemet det, at jeg kan ikke lide se hvordan jeg skal opbygge denne, så den virker Jeg har denne her kode i forvejen: Private Sub Command1_Click() Main.MSFlexGrid1.Row = 1 Main.MSFlexGrid1.Col = 0 Main.MSFlexGrid1.Text = "Close" Main.MSFlexGrid1.Col = 1 For x = 0 To List1.ListCount - 1 If List1.Selected(x) = True Then starttime.Label1 = List1.List(x) Main.MSFlexGrid1.Text = List1.List(x) End If Next Unload Me starttime.Show 1, Main End Sub Så skulle resultatet jo gerne blive sådan noget lignende det her: Close | Valg fra Listbox |.... Hvis der så allerede er noget i den første skulle den jo gerne vælge den neden under, og så videre...
Annonceindlæg fra Computerworld
23. april 2003 - 21:30
#1
Jeg har ændret lidt i koden Private Sub Command1_Click() Main.MSFlexGrid1.Row = 1 Main.MSFlexGrid1.Col = 0 If List1.SelCount = 1 Then Main.MSFlexGrid1.Text = "Close" Main.MSFlexGrid1.Col = 1 For x = 0 To List1.ListCount - 1 If List1.Selected(x) = True Then starttime.Label1 = List1.List(x) Main.MSFlexGrid1.Text = List1.List(x) End If Next Unload Me starttime.Show 1, Main Else MsgBox "Please select one", vbExclamation + vbOKOnly, "Error" End If End Sub
24. april 2003 - 09:37
#2
Det er ikke krystalklart for mig hvad du vil opnå, men måske er det noget i denne retning: Do Until Main.MSFlexGrid1.Text = "" Main.MSFlexGrid1.Row = Main.MSFlexGrid1.Row + 1 Loop Den kører nedad indtil den finder en tom celle. NB: den checker ikke for om den rammer bunden... /venne
24. april 2003 - 14:29
#4
Do Until Main.MSFlexGrid1.Text = "" Or _ Main.MSFlexGrid1.Row >= Main.MSFlexGrid1.Rows - 1 Main.MSFlexGrid1.Row = Main.MSFlexGrid1.Row + 1 Loop Nu peger vi enten på en tom celle eller på den nederste. Hvad du så vil gøre er op til dig. /venne
24. april 2003 - 15:23
#5
Kan man ikke bare bruge den første løkke du lavede, og putte en if-sætning ind i den ?? if Main.MSFlexGrid1.Row > x Then Break End If ??? Pointene er dine....ville bare godt lige holde dig her, til jeg vidste hvad jeg kunne gøre for at afslutte løkken