Private VorShowOrderDetail (ByVal SalesHeaderID als ganze Zahl)
Schwacher sql als Schnur = „spOrderDetail“
Schwacher ds als neuer Datensatz
Schwacher grd als neues DataGridView
Versuch
Using Anschl. als neues SqlConnection (My.Settings.OrderEntrySalesConnectionString)
Anschl. Öffnen sich ()
Using DA als neues SqlDataAdapter (sql, Anschl.)
Mit DA
.SelectCommand.CommandType = CommandType.StoredProcedure
.SelectCommand.Parameters.Add („@SalesHeaderID“, SqlDbType.Int). Richtung = ParameterDirection.Input
.SelectCommand.Parameters („@SalesHeaderID“). Wert = SalesHeaderID
. Füllen (ds)
Mit beenden
Using beenden
Using beenden
Ex als Ausnahme sich verfangen
DisplayErrorMsgLogToTable (ex, „Kunde grasen - Bilanz - 1“)
Enden-Versuch
Versuch
grd. Name = „grd“
grd.DataSource = ds. Tabellen (0)
grd. Größe = neues System.Drawing.Size (720, 220)
'
'******************************
'Kommt hier die Störung wenn uncomment das folgende
'gekommentierte Linien.
'
'grd. Spalten (0). Breite = 80
'grd. Spalten („Beschreibung“). Breite = 200
'grd. Spalten („nach Gew.“). Breite = 45
'grd. Spalten („Warenbestand“). Breite = 55
grd. Sichtbar = ausrichten
grd.ScrollBars = ScrollBars.Vertical
grd.RowHeadersVisible = falsch
Schwaches frm als neues Windows.Forms.Form
Mit frm
. Größe = neues System.Drawing.Size (730, 300)
. Controls.Add (grd)
. Dock = DockStyle.Fill
.BringToFront ()
.StartPosition = FormStartPosition.CenterParent
.SizeGripStyle = Windows.Forms.SizeGripStyle.Hide
. Text = „Auftrags-Detail für“ + Me.cboCustomerPickupSalesHeaderID.SelectedText.ToString
.MinimizeBox = falsch
.MaximizeBox = falsch
.ShowDialog ()
. Abschaffen ()
. Schließen ()
Mit beenden
Ex als Ausnahme sich verfangen
DisplayErrorMsgLogToTable (ex, „ShowOrderDetail“)
Enden-Versuch
Enden-Unterseeboot
|