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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]运行事件程序软件自动关闭  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91089)

--  作者：铜豌豆之首
--  发布时间：2016/9/29 10:46:00
--  [求助]运行事件程序软件自动关闭

Select e.DataCol.name
Case "日期"
If e.NewValue IsNot Nothing Then
Dim p As Integer = Tables("组合1").Rows.count
Dim d As Date = new Date(Date.Today.Year,12,31)
Tables("组合1").AddNew(d.DayOfYear - e.NewValue.DayOfYear)
Dim d1 As Date = e.NewValue
For i As Integer = p To Tables("组合1").Rows.count - 1
Tables("组合1").Rows(i)("日期") = d1
d1 = d1.AddDays(1)
Next
End If
End Select
运行程序后，软件会自动关闭，且不保存

--  作者：有点蓝
--  发布时间：2016/9/29 10:49:00
--
不会操作的同一个表吧

Select e.DataCol.name
Case "日期"
If e.NewValue IsNot Nothing Then
Dim p As Integer = Tables("组合1").Rows.count
Dim d As Date = new Date(Date.Today.Year,12,31)
SystemReady = False
Tables("组合1").AddNew(d.DayOfYear - e.NewValue.DayOfYear)
Dim d1 As Date = e.NewValue
For i As Integer = p To Tables("组合1").Rows.count - 1
Tables("组合1").Rows(i)("日期") = d1
d1 = d1.AddDays(1)
Next
SystemReady = True
End If
End Select

--  作者：铜豌豆之首
--  发布时间：2016/9/29 10:50:00
--
就是同一个表，难道两者之间有区别

--  作者：有点蓝
--  发布时间：2016/9/29 10:56:00
--
同一个表就死循环了，为什么自己思考一下