39 lines
1.3 KiB
VB.net
39 lines
1.3 KiB
VB.net
Public Class frmKopien
|
|
Dim Produktnr As Integer = 0
|
|
Dim parent As Form
|
|
Dim produktcopy As New DataTable
|
|
Dim pc As New TKB.VV.Lifecycle.clsProduktCopy
|
|
Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Sub New(ByVal Origianl As Integer, ByVal Titel As String, parentform As Form)
|
|
InitializeComponent()
|
|
Me.Text = Me.Text + " " + Titel
|
|
parent = parentform
|
|
Me.Produktnr = Origianl
|
|
End Sub
|
|
|
|
Private Sub frmKopien_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
produktcopy = pc.Get_Copies(Produktnr)
|
|
Me.C1Result.DataSource = produktcopy
|
|
Me.C1Result.DataMember = produktcopy.TableName
|
|
Me.C1Result.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1Result.Splits(0).DisplayColumns(1).Width = 0
|
|
Me.C1Result.Splits(0).DisplayColumns(2).Width = Me.C1Result.Width - 50
|
|
End Sub
|
|
|
|
Private Sub C1Result_DoubleClick(sender As Object, e As EventArgs) Handles C1Result.DoubleClick
|
|
Try
|
|
Dim F As New frmLifeCycle(Me.C1Result.Columns(0).Value)
|
|
F.MdiParent = parent
|
|
F.Show()
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |