|
link to this page:
http://pastebin.antiyes.com/index353.html
download this file: click here
|
description/question:
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| |
Private Sub butSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butSave.Click
Dim previousPlay As New Data.Baseball.Play
Play_InitializeGS(glob, newPlay, PlayType.ON_BASE)
newPlay.PlayerID = obPlay.PlayerID
newPlay.FinalBase = obPlay.FinalBase
newPlay.PitcherPlayerID = obPlay.PitcherPlayerID
newPlay.BattingOrderPosition = obPlay.BattingOrderPosition
newPlay.OnBaseResult = obPlay.OnBaseResult
newPlay.DefensiveSequence = obPlay.DefensiveSequence
newPlay.Errors = obPlay.Errors
Grab()
If glob.runnerPreviousEventID IsNot Nothing Then
previousPlay.Get(glob.conn, glob.runnerPreviousEventID)
If OnBaseEventsIdentical(newPlay, previousPlay) Then
Exit Sub
End If
End If
newPlay.Create(glob.conn)
Me.Close()
End Sub
|
|
|
|
|