如何实现打开页面就写入开始时间，点确定按钮后就写入学习时间并计算学习时长 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、函数里再做这种判断完全是多余的，所有函数都去掉这种判断

Select Case e.Path

Case "xuexi.htm"

2、利用隐藏域保存开始时间

wb.AddForm("","form1","xuexi.htm")

.AddHiddenValue("开始时间",Date.Now())

-------------

Else

Dim tp As TimeSpan

Dim kaishi As Date=cdate(e.PostValues("开始时间"))

Dim jieshu As Date=date.now

tp = jieshu-kaishi

MessageBox.Show(tp.TotalMinutes) '真正的时段型数据要转换为秒数,才能存入时段列

Dim cmd1 As New SQ LCommand

cmd1.Connect ionN ame = "智慧党建"

cmd1.Comma ndText = "Inse rt In to 学习内容 (内容,学习时间,开始时间,学习人员,学习编号,学习时长) Values(?,?,?,?,?)"

cmd1.Parameters.Add("@内容", bt)

cmd1.Parameters.Add("@学习时间", Date.Now())

cmd1.Parameters.Add("@开始时间", kaishi)

cmd1.Parameters.Add("@学习人员", e.Cookies("姓名"))

cmd1.Parameters.Add("@学习编号", bianhao)

cmd1.Parameters.Add("@学习时长", tp.TotalMinutes)

cmd1.ExecuteN onQuery

主题：如何实现打开页面就写入开始时间，点确定按钮后就写入学习时间并计算学习时长