写了这个代码,放在窗体的afterload中,运行中发生错误,实在找不出原因,请帮我诊断下
If e.col.name = "完成时间" Then <选定操作计算的列>
If e.text >"" Then <如果列不为空>
Dim dt As Date = e.Text <定义一个日期变量,这个值是 列里数据>
Dim ts As Integer = (Date.today - dt).totalDays <将当天时间和日期变量之差赋值给整数变量ts>
e.Form.Controls("TextBox1").text = DataTables("任务进度条").Compute("Count(接单时间)", "ts < 7") <计算时间少于7天的信息条数,并写入文本框1>
End If
End If
![dvubb 图片点击可在新窗口打开查看](http://www.datasoft.com.cn/skins/default/filetype/jpg.gif)
此主题相关图片如下:时间计算代码错误.jpg