[求助]项目中数据多了，用了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年使用，生产流程卡表数据越来越多，今天打开此表，在加载树上选择数据时，死机了，分析了下原因并做了测试，就是红字部分导致的，老师，能帮我优化下此代码吗？

改为下拉窗口：http://www.foxtable.com/webhelp/topics/2116.htm

下拉窗口表可以通过条件和分页减少一次性显示的数据

改用临时表，生成临时表时，先去重复，然后用GetComboListString试试

不一定是这个问题。not in 本身效率就很低，如果数据很多的时候，有可能是执行的字符串太长导致的，就算是SQL语句，不论是in或not in 都执行不了。

可以考虑用一个查询表，再从这个表中遍历形成一个集合X，然后再string.join("|",x.toarray)，把它赋给下拉框

个人认为就是not in的执行效率太低了。因为后面获取的字符串太长，not in的判断超时

可以考虑试一下这个：

设一个全局变量Z，maintablechanged事件中，如果切换到的新表是datatables("生产流程卡")时

dim dtscjh as datatable = datatables("生产计划")

dim dtsclc as datatable = datatables("生产流程卡")

dim hsx as new hashset(of string)

for each dr as datarow in dtsclc.sqlselect("项目状态 = '执行中'")

hsx.add(dr("生产计划主号"))

dim lsty as new list(of string)

for each dr as datarow in dtscjh.sqlselect("项目状态 = '执行中'")

if hsx.contains(dr("生产计划主号")) = false then

lsty.add(dr("生产计划主号"))

end if

Z = string.join("|",lsty.toarray())

提示一下：不论是SQLGetComboListString还是GetComboListString，数据量大的时候，效率远远低于遍历

然后在表的perpareedit事件中

if e.col.name = "生产计划主号" then

e.table.Cols("生产计划主号").ComboList ＝ Z

end if

[此贴子已经被作者于2021/7/14 17:40:50编辑过]

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