VB.NET窗体面板重复网格高度调整

我更多的是使用C#开发网站，在使用VB.Net开发VB.Net表单时遇到困难。请查看屏幕截图。零件蓝色条是面板中的标题标签。之后，有一些标签，然后是一个网格（LocationGrd）。有两行，我重复标签和位置网格。如何减小顶部和底部控制框之间的间隙，第一个和第二个控制框之间的间隙过大。有线索吗

For Index = 0 To Core.POParts.Count - 1
                        PartTypeDT = App.GetPartTypeForPart(Core.POParts(Index).PartNum, Core.POParts(Index).ProjectCodeOrSalesOrderID, Core.POParts(Index).IsProject)
                        '// Part Number
                    Core.PartNumLblArray.Add(GetLabel(PartNumLbl_Const, Index))
                    PartsPnl.Controls.Add(Core.PartNumLblArray(Index))
                    Core.PartNumTxtArray.Add(GetText(PartNumTxt_Const, Index, Core.POParts(Index).PartNum, Core.POParts(Index).PartID, MyBackColor))
                    PartsPnl.Controls.Add(Core.PartNumTxtArray(Index))
                         ......                             
                    Next

Private Function GetLocationsGrd(Index As Integer) As DataGridView
        Dim MyGrd As New DataGridView
        Dim MyLocationCol As New System.Windows.Forms.DataGridViewComboBoxColumn()
        Dim MyQuantityCol As New System.Windows.Forms.DataGridViewTextBoxColumn()

        MyLocationCol.FillWeight = LocationCol.FillWeight
        MyLocationCol.HeaderText = "Location"
        MyLocationCol.Name = "LocationCol_" & Index

        MyQuantityCol.DefaultCellStyle = QuantityCol.DefaultCellStyle
        MyQuantityCol.FillWeight = QuantityCol.FillWeight
        MyQuantityCol.HeaderText = "Quantity"
        MyQuantityCol.Name = "QuantityCol_" & Index

        With MyGrd
            .AllowUserToDeleteRows = False
            .AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
            .ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
            .Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {MyLocationCol, MyQuantityCol})
            .ContextMenuStrip = Me.ALContextMenuStrip
            .Location = New System.Drawing.Point(LocationsGrd.Left, (Index * 200) + LocationsGrd.Top)
            .Name = LcationsGrd_Const & Index
            .Size = New System.Drawing.Size(LocationsGrd.Width, LocationsGrd.Height)
        End With

        Return MyGrd

    End Function

---

它们在设计时是这样的吗？如果是这样，只需将控件拖放到所需位置即可。如果没有，那么您需要在问题中对此进行解释。如果您想要较小的间距，请将底部控件集的

Location

属性的

Y

组件设置为较小的值。你可能是在说，而不是实际说，你希望底部的控件集直接位于顶部的控件集之下，然后在将行添加到上部网格时向下移动吗？下面是代码：由于空间限制，我无法全部显示所有代码。问题是，有一个位置网格。，但是，当数据重复时，我不确定零件号标签行应如何位于第一个位置网格的正下方。有一个太多的差距，在以前的代码中，很抱歉缩进问题，对于循环，我正在添加数据。我在问题中添加了代码。好建议。