主题：一对多任务派发没有成功，请指教

我想做一个任务派发单，一项任务发多个部门和负责人，在任务单里记录多个任务情况，

窗口表事件

 

窗口与控件事件

 

派发_Button1_Click

 

forms("编辑").open()

forms("派发").close()

 

派发_ComboBox2_Enter

 

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox1").Value

cmb.ComboList = DataTables("部门表").GetComboListString("姓名", "部门 = '" & str & "'")

 

派发_ComboBox4_Enter

 

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox3").Value

cmb.ComboList = DataTables("部门表").GetComboListString("姓名", "部门 = '" & str & "'")

 

派发_派发_Click

 

Dim yu As DataRow = DataTables("任务管理").AddNew()

 

Dim checkedcombobox1 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Dim checkedcombobox2 As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox2")

 

Dim ComboBox3 As WinForm.ComboBox=e.Form.Controls("ComboBox3")

Dim ComboBox4 As WinForm.ComboBox=e.Form.Controls("ComboBox4")

Dim textBox5 As WinForm.textBox=e.Form.Controls("textBox5")

Dim textBox1 As WinForm.textBox=e.Form.Controls("textBox1")

Dim DateTimePicker1 As WinForm.DateTimePicker=e.Form.Controls("DateTimePicker1")

For Each Value As String In CheckedComboBox1.text.split(",")

 

yu("任务名称")=textbox1.value

yu("承办部门")=checkedcombobox1.SelectedValue

yu("承办人")=checkedcombobox2.SelectedValue

yu("完成日期")=DateTimePicker1.value

yu("具体要求")=textbox5.value

yu("验收部门")=ComboBox3.SelectedValue

yu("验收人")=ComboBox4.SelectedValue

yu("派发人") = User.name

yu("派发日期") = Date.now()

yu("派发时间") = Date.now()

Next

TextBox1.value=""

Textbox5.value=""

checkedcombobox1.Value=Nothing

checkedcombobox2.Value=Nothing

ComboBox3.Value=Nothing

ComboBox4.Value=Nothing

DateTimePicker1.value=""

 

 

value的值你没有使用

 

For Each Value As String In CheckedComboBox1.text.split(",")

    yu("承办部门")=value

具体问题，尽量做个例子发上来测试。

附件上传，想完成多个任务一块派发，怎么处理？

2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	机械动力科	李新春	安全管理科	高春山	完善，齐全
2019年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	生产技术科	李志勇	安全管理科	高春山	完善，齐全
2020年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	经营预算科	尹明星	安全管理科	高春山	完善，齐全
2021年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	成本科	晁赵广	安全管理科	高春山	完善，齐全
2022年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	选矿车间	齐友	安全管理科	高春山	完善，齐全

任务名称	完成日期	派发人	派发日期	承办部门	承办人	验收部门	验收人	具体要求
2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	机械动力科	李新春	安全管理科	高春山	完善，齐全
2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	生产技术科	李志勇	安全管理科	高春山	完善，齐全
2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	经营预算科	尹明星	安全管理科	高春山	完善，齐全
2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	成本科	晁赵广	安全管理科	高春山	完善，齐全
2018年双重预防机制制度建设	2018-03-01	高春山	2018-01-04	选矿车间	齐友	安全管理科	高春山	完善，齐全

看到附件没？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目20180106.foxdb

你给的例子和你上面写的例子不匹配。

 

你要怎么操作，最后要怎样的效果？多个任务在哪里指明？多个部门多个人怎么对应？

 

举例具体说明。

目前发四个同样任务给四个部门，需要一个一个派发，怎么实现四个任务一次次发

一次派发四个任务