| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]日期控件自动输入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136904) |
| -- 作者：klkingkkk -- 发布时间：2019/6/24 9:49:00 -- [求助]日期控件自动输入 大神 我下面的代码什么地方有问题吗?怎么日期不能保存呢? Dim dlg As New OpenFileDialog dlg.MultiSelect = True If dlg.ShowDialog = DialogResult.OK Then \' Dim strs As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default) Dim it5 =strs.IndexOf("注册日")+5 strs=strs.SubString(it5,8) strs = strs.Insert(4,"-") strs = strs.Insert(7,"-") Dim d As Date If Date.TryParse(strs, d)Then \'MessageBox.Show(d) e.Form.controls("DateTimePicker1").value = d End If End If 这个结果就是 点了后 控件显示的日期就是识别的日期 但是不能保存
|
| -- 作者：有点甜 -- 发布时间：2019/6/24 11:44:00 -- 看看是不是这个原因
e.Form.controls("DateTimePicker1").WriteValue
|
| -- 作者：klkingkkk -- 发布时间：2019/6/25 0:04:00 -- 在后面加一行这个就可以了 , 谢谢!!!!!! 我刚刚看了一下 WriteValue 的意思 是不是加的这一行 相当于离开控件后重新输入一次日期 而Value= d 其实只是控件当前显示的 并没有写入 是吗
|
| -- 作者：有点蓝 -- 发布时间：2019/6/25 10:14:00 -- WriteValue 等于把数据更新到表格中 |