不是程序员,但我涉足过。所以请原谅我的愚蠢。
我已经在以前的程序中拖放工作,其中预设了 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