Vb.net de>ScheduleInfo仅在工作人员忙碌时才有一个条目;完成后,它将被删除/清除或状态更改。因此,在Worker上创建一个查询,以选择在ScheduleInfo中没有“打开”条目的所有员工。Access有查询构建工具来帮助完成这项工作,然后您可以调用
Vb.net de>ScheduleInfo仅在工作人员忙碌时才有一个条目;完成后,它将被删除/清除或状态更改。因此,在Worker上创建一个查询,以选择在ScheduleInfo中没有“打开”条目的所有员工。Access有查询构建工具来帮助完成这项工作,然后您可以调用,vb.net,visual-studio-2010,ms-access,ms-access-2010,Vb.net,Visual Studio 2010,Ms Access,Ms Access 2010,de>ScheduleInfo仅在工作人员忙碌时才有一个条目;完成后,它将被删除/清除或状态更改。因此,在Worker上创建一个查询,以选择在ScheduleInfo中没有“打开”条目的所有员工。Access有查询构建工具来帮助完成这项工作,然后您可以调用该查询或将SQL粘贴到您的应用程序中。@Proputix让我们假设只有一名工作人员可以完成一项任务,因此我将在任务的后面部分随机化一名工作人员。但现在我必须让我的“工人名单”显示出来。就像我的listview中的第1行一样,它将是TaskNo
de>ScheduleInfo仅在工作人员忙碌时才有一个条目;完成后,它将被删除/清除或状态更改。因此,在
Worker
上创建一个查询,以选择在ScheduleInfo
中没有“打开”条目的所有员工。Access有查询构建工具来帮助完成这项工作,然后您可以调用该查询或将SQL粘贴到您的应用程序中。@Proputix让我们假设只有一名工作人员可以完成一项任务,因此我将在任务的后面部分随机化一名工作人员。但现在我必须让我的“工人名单”显示出来。就像我的listview中的第1行一样,它将是TaskNo 1,第二列将是2,因为只有2个Task,第三列将是“1,4”,这意味着只有worker 1和worker 4可用。我知道我必须循环,但我应该把循环放在哪里?我是否像你说的那样多使用一个数据集?非常感谢你的回复。我会尽力去理解的。至少现在我知道我的代码是什么样子了。顺便说一句,有一件事我忘了补充。在我显示记录之后。我必须从每个任务中随机分配一名工作人员,并将时间加在一起。我需要另一个查询来提取我的时间并以数组形式存储吗?@Crayon听起来像是一个。没错,整个过程就是生成一个员工序列。我不明白如果我的两个命令文本都没有抽出时间,怎么抽出时间time@Crayon当您在数据表中的行中循环时,您始终可以同时提取[WorkerID]和[TimeTake],并为每个[TaskNo]添加一个值到您的总时间中。非常感谢您,我成功地使其工作。谢谢
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
conn.ConnectionString = myConString
conn.Open()
Dim SQLString As String = ("SELECT [TaskNo], COUNT(*) FROM ScheduleInfo GROUP BY TaskNo")
cmd = New OleDbCommand(SQLString, conn)
da = New OleDbDataAdapter(cmd)
ds = New DataSet
da.FillSchema(ds, SchemaType.Source, "ScheduleInfo")
da.Fill(ds, "ScheduleInfo")
dt = ds.Tables("ScheduleInfo")
LstViewScheduleInfo.Columns.Add("TaskNo", 150, HorizontalAlignment.Center)
LstViewScheduleInfo.Columns.Add("No of Workers", 150, HorizontalAlignment.Center)
LstViewScheduleInfo.Columns.Add("List Of Workers", 150, HorizontalAlignment.Center)
For Each row As DataRow In dt.Rows()
Dim lst As ListViewItem
lst = LstViewScheduleInfo.Items.Add(row(0))
For i As Integer = 1 To dt.Columns.Count - 1
lst.SubItems.Add(row(i))
Next
Next
conn.Close()
End Sub