在运行时添加的 Datagridviews 之间拖放

时间:2021-01-31 21:35:40

标签: vb.net datagridview

不是程序员,但我涉足过。所以请原谅我的愚蠢。

我已经在以前的程序中拖放工作,其中预设了 Datagridviews,我现在面临的问题是我有 10 个以上的部门,所有部门都拥有不同数量的工作站。我有一个表单,它从一个 sql 表中获取工作站的数量和工作站名称@login,并在添加时添加命名它们的数量。我希望能够将工作拖放到工作站中,供这些人工作。

以下是我到目前为止的内容,但我什至不知道它是否可能或从哪里开始拖动或鼠标移动事件,因为 datagridview 名称未修复。

 Dim WSNames As New DataTable
        '2  Call Current Stored WSSettings Values from SQL DB
        Dim SqlGetWSSettingsData As New SqlCommand("Select  [WorkSpace Name] from PASch_WrkSpcAllocator ", connection)
        Dim SqlDataAdapterSqlGetWSSettingsData As New SqlDataAdapter(SqlGetWSSettingsData)
        Dim DTSqlGetWSSettingsData As New DataTable()
        SqlDataAdapterSqlGetWSSettingsData.Fill(DTSqlGetWSSettingsData)

        DGVCounter = 0
        Do Until DGVCounter = NoOfWorkStations
            Dim dgv As New DataGridView
            Me.Controls.Add(dgv)
            dgv.Width = (Me.Width / NoOfWorkStations) - 20

            dgv.Location = New Point(dgv.Width * (DGVCounter) + 20, 50)
            dgv.Name = DTSqlGetWSSettingsData.Rows(DGVCounter)(0).ToString
            DGVCounter = DGVCounter + 1
            dgv.BackgroundColor = Color.White
            dgv.AllowUserToAddRows = False
            dgv.ReadOnly = True


         
           
        Loop

0 个答案:

没有答案