长时间没有连接sqlserver，数据库就会断开客户端的连接的。

 所以你的程序，最好做一个计时器，定时去访问以下数据库，执行一个简单查询语句就行。

Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.
Dim max As String
Dim idx As Integer
max = e.DataTable.sqlCompute("Max(需求编号)","需求编号 like \'" & bh & "%\'")
If max > "" Then \'如果存在最大编号
    idx = CInt(max.Substring(bh.Length,2)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
    idx = 1 \'否则顺序号等于1
End If
e.DataRow("需求编号") = bh & Format(idx,"00")
e.DataRow.save
e.DataRow("流程") = "录入"
e.DataRow("邮件通知") = "service@bdcom.com.cn"
Tables("需求明细表").Sort = "需求编号 DESC"

这个计时器咋做啊？在哪里做？

执行任意一句sql语句都可以。

http://www.foxtable.com/help/topics/0657.htm

http://www.foxtable.com/help/topics/0696.htm

我是按照http://www.foxtable.com/help/topics/0657.htm 来做的。如附件。

此主题相关图片如下：计划管理.png

开始其他同事有的能正常登录，有的登录出错，如附件。

 汗，谁叫你执行这个代码啦？

Dim cmd As New SQLCommand
cmd.ConnectionName = "ERP"
cmd.CommandText = "Select * From {订单} Where 1=2"
cmd.ExecuteNonQuery