主题：项目卡机

在试用中运行 总会有一些异常出现 代码的不严谨 或者数据的格式 都会导致项目卡死在那 在大量数据递交的时即使不出错 在任务管理器中也可能显示窗口不响应

举例说明一下 同一段数据 一样的执行代码 在不同的机子上 一个报错 一个正常

代码如下:

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")
Dim cpbh As String = e.Form.Controls("项目").Value

Dim filter As String = "1=1"
If sd.Value <> Nothing Then
    filter &= " And 出车日期 >= '" & sd.value & "'"
End If
If ed.Value <> Nothing Then
    filter &= " And 出车日期 <= '" & ed.value & "'"
End If
If cpbh <> "" Then
    filter &= " And [项目] Like '%" & cpbh & "%' "
End If
If ed.value = Nothing AndAlso sd.value = Nothing Then
    filter &= " And 出车日期 = '" & Date.today & "'"
End If
DataTables("配载订单").LoadFilter=filter
DataTables("配载订单").Load
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("配载订单", "车牌|司机|项目")
trv.Nodes.Insert("所有订单",0)

我把#号改成 ' 又报

这是我第一次自己做开发 好多语法 都不会 期间一直都是红袍版主在无私奉献 在此表示感谢 , 现在也已经提交试用 出于谨慎 公司决定试用之后才购买开发版 可能在众多的用户中 我只不过是一个还未入门的使用者

可我真想好好运用好这样的软件 虽坎坷 路还在

一直也不知道该怎样去规范代码的严谨使项目能正常进行 烦请红袍版主再次帮忙 怎样完善