[求助]项目中数据多了，用了6年多的代码导致死机了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Initialize项目事件

Dim cmd_生产计划 As New SQLCommand

cmd_生产计划.C

cmd_生产计划.CommandText = "S elect * From {生产计划} Where [_Identify] Is Null"

_dt生产计划 = cmd_生产计划.ExecuteReader()

PrepareEdit 生产流程卡表事件

'生成下拉

If e.IsFocusCell Then

Select Case e.Col.Name

Case "生产计划主号"

e.Col.Combolist = _dt生产计划.SQLGetComboListString("生产计划主号","[项目状态] = '执行中' And [生产计划主号] not In ('" & e.Table.DataTable.SQLGetComboListString("生产计划主号").Replace("|", "','") & "')")

End Select

End If

经过6年使用，生产流程卡表数据越来越多，今天打开此表，在加载树上选择数据时，死机了，分析了下原因并做了测试，就是红字部分导致的，老师，能帮我优化下此代码吗？

主题：[求助]项目中数据多了，用了6年多的代码导致死机了