[求助]日期控件自动输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期控件自动输入

共有3577人关注过本帖树形打印复制链接主题：[求助]日期控件自动输入

klkingkkk

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：44 积分：448 威望：0 精华：0 注册：2019/6/22 13:50:00

[求助]日期控件自动输入 发帖心情

Post By：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

这个结果就是点了后控件显示的日期就是识别的日期但是不能保存

klkingkkk

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：44 积分：448 威望：0 精华：0 注册：2019/6/22 13:50:00

Post By：2019/6/25 0:04:00 [显示全部帖子]

在后面加一行这个就可以了 , 谢谢!!!!!!

我刚刚看了一下 WriteValue 的意思

是不是加的这一行相当于离开控件后重新输入一次日期

而Value= d 其实只是控件当前显示的并没有写入是吗

主题：[求助]日期控件自动输入