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

此主题相关图片如下：t3.png

此主题相关图片如下：t2.png

在【增加行】按钮中进行日期设置DateTime，分不能显示，不知为何？

此主题相关图片如下：t1.png

代码如下，

With Tables("表A")

If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

Tables("表A").AddNew()

End If

End With

Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

dp1.DateTimeFormat = DateTimeFormatEnum.DateTime

Tables("表A").Current("今天日期") = Date.Today()

主题：[求助]日期设置