窗口表事件

窗口与控件事件

派发_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

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

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

举例具体说明。