26 lines
835 B
VB.net
26 lines
835 B
VB.net
Public Class frmApplAbgleichCheckMessage
|
|
Public muttext As String = ""
|
|
Public addtext As String = ""
|
|
Public deltext As String = ""
|
|
Public dtm As New DataTable
|
|
|
|
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
|
End Sub
|
|
|
|
Private Sub btnDetails_Click(sender As Object, e As EventArgs) Handles btnDetails.Click
|
|
Dim ff As New frmApplAbgleichDetails
|
|
ff.dtm = dtm
|
|
|
|
ff.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub frmApplAbgleichCheckMessage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
End Class |