以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  麻烦老师帮忙看看 日期控件的值 被选择后 新增记录项目直接退出，不选择日期控件的值，其他数据可以保存进数据库，  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169241)

--  作者：cnsjroom --  发布时间：2021/6/8 12:01:00 --  麻烦老师帮忙看看 日期控件的值 被选择后 新增记录项目直接退出，不选择日期控件的值，其他数据可以保存进数据库， 麻烦老师帮忙看看   日期控件的值 被选择后  新增记录项目直接退出，不选择日期控件的值，其他数据可以保存进数据库， 按钮事件代码如下：（到期时间  应办时间  如果选择后，项目直接闪退；反之，数据可以正常写入待办事项表） 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

--  作者：有点蓝 --  发布时间：2021/6/8 12:08:00 --   检查datacolchanged事件，应该是事件触发形成死循环了