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

老师好，下面代码是论坛上抄来的想把标出的地方去掉并修改。谢谢老师。

e.Sender.Cursor = System.Windows.Forms.Cursors.WaitCursor

Dim cmd As New SQLCommand

Dim dr As DataRow

Dim dt As DataTable

cmd.C

cmd.CommandText = "SEL ECT * From {劳动合同} where 劳动合同_到期 = false and [劳动合同_结束时间] <= #" & DateAdd("d",30,Functions.Execute("服务器时间")) & "#"

dt = cmd.ExecuteReader()

forms("窗口1").controls("人事档案Label8").text = dt.Compute("count([_Identify])")

主题：[求助]窗口