麻烦老师帮忙看看 日期控件的值 被选择后 新增记录项目直接退出，不选择日期控件的值，其他数据可以保存进数据库，
按钮事件代码如下：（到期时间 应办时间 如果选择后，项目直接闪退；反之，数据可以正常写入待办事项表）
Dim 备注 As WinForm.TextBox = e.Form.Controls("备注")
Dim 到期时间 As WinForm.DateTimePicker = e.Form.Controls("到期时间")
Dim 事项类别 As WinForm.ComboBox = e.Form.Controls("事项类别")
Dim 事项名称 As WinForm.ComboBox = e.Form.Controls("事项名称")
Dim 事项内容 As WinForm.TextBox = e.Form.Controls("事项内容")
Dim 事项人员 As WinForm.CheckedComboBox = e.Form.Controls("事项人员")
Dim 应办时间 As WinForm.DateTimePicker = e.Form.Controls("应办时间")
If 事项人员.text > "" Then
For Each zs As String In 事项人员.text.split(",")
Dim dr As DataRow = DataTables("待办事项").Find("待办人='" & zs & "'and uuid='"& Tables("事项登记").Current("uuid")&"'")
If dr Is Nothing Then
dr = DataTables("待办事项").AddNew
dr("待办人") = zs
dr("完成情况") = "未完成"
dr("uuid")=Tables("事项登记").Current("uuid")
dr("事项类别")=事项类别.Value
dr("事项名称")=事项名称.Value
dr("事项内容")=事项内容.Value
dr("应办时间")=应办时间.Value
dr("到期时间")=到期时间.Value
dr("备注")=备注.Value
dr("单位")=Tables("事项登记").Current("单位")
dr.Save
End If
Next
End If
加好友 
发短信
Post By：2021/6/8 12:01:00 [只看该作者]
