Jag är ny på detta och har stött på ett problem. Jag jobbar med en tabell, där när man klickar på en knapp, tabellen ska uppdateras. Om t.ex. spelare 1 gjort fler mål än spelare 2 ska spelare 1 få två poäng, vid oavgjort en poäng och annars ingen. Du kan jobba direkt med textrutornas värden. CInt formaterar textsträngen till heltal.Får inte till tabell
Jag har
* en ruta där spelare 1:s mål står (txtresh1)
* en ruta där spelare 2:s mål står (txtresb1)
* poängen för spelare 1 (txtp1)
Någon som har nått tips på hur jag får till detta, försökte med en If-sats men det ville sig inte:
Dim p1 As Integer
Dim h1 As Integer
Dim b1 As Integer
p1 = txtp1.Text
b1 = txtresb1.Text
h1 = txtresh1.Text
If h1 > b1 Then
p1 = p1 + 2
ElseIf h1 = b1 Then
p1 = p1 + 1
ElseIf h1 < b1 Then
p1 = p1
End If
Tacksam för svar!Sv: Får inte till tabell
If CInt(txtresh1.Text) > CInt(txtresb1.Text) Then
txtp1.Text = CInt(txtp1.Text) + 2
ElseIf h1 = b1 Then
txtp1.Text = CInt(txtp1.Text) + 1
End If