有两个表,一个“配缸表”,另一个“成品入库表”;两个表都有“缸号”列;加入“配缸表”产生10000个缸号;最后在“成品入库表”只有9000个缸号,想用代码把1000个没有入到“成品入库表”的缸号找出来,写了下面的代码,可以找到但是要10几秒时间,请老师帮我看看有更好的代码写法;谢谢!table5就是“配缸表”Dim ghkt As WinForm.TextBox = e.Form.Controls("缸号开头")
Dim kcbs As String = DataTables("成品入库表").SQLGetComboListString("缸号","[缸号] like '" & ghkt.text & "%' and [缸号] is not null")
kcbs = "('" & kcbs.replace("|","','") & "')"
'-------历遍成品入库表的缸号生成集合-------
DataTables(e.Form.Name & "_table5").LoadFilter = "_identify is not null"
DataTables(e.Form.Name & "_table5").Load
Dim ckbs As String = DataTables(e.Form.Name & "_table5").GetComboListString("缸号","[配缸] = 1 and [缸号] like '" & ghkt.text & "%' And [缸号] not In " & kcbs)
ckbs = "('" & ckbs.replace("|","','") & "')"
DataTables(e.Form.Name & "_table5").LoadFilter = "[缸号] in " & ckbs
DataTables(e.Form.Name & "_table5").Load