老师,如图1和2异常,请帮忙看看,查询很慢,并且还查询超时,显示超时之后内容也能出来,谢谢!
此主题相关图片如下:2.jpg
Dim dic As new Dictionary(of String,Integer)
DataTables("检测数据上传_检测数据上传").DataRows.Clear()
For Each dr1 As DataRow In DataTables("检测数据上传_检测数据").DataRows
For Each dr2 As DataRow In DataTables("终检检测模版").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' And [加工工序] = '" & dr1("加工工序") & "' And [使用状态] = '进行中'")
Dim dr As DataRow = DataTables("检测数据上传_检测数据上传").AddNew()
dr("成品编码") = dr2("成品编码")
dr("成品描述") = dr2("成品描述")
dr("毛坯产地") = dr2("毛坯产地")
dr("加工工序") = dr2("加工工序")
dr("加工内容") = dr2("加工内容")
dr("使用工具") = dr2("使用工具")
dr("检验项目") = dr2("检验项目")
dr("检测范围") = dr2("检测范围")
dr("标准值") = dr2("标准值")
dr("上公差值") = dr2("上公差值")
dr("下公差值") = dr2("下公差值")
dr("上公差") = dr2("上公差")
dr("下公差") = dr2("下公差")
dr("毛坯编码") = dr1("毛坯编码")
dr("生产批次") = dr1("生产批次")
dr("批次序号") = dr1("批次序号")
dr("上传人员") = dr1("姓名")
dr("上传日期") = dr1("扫描日期")
dr("类型") = "终检类"
Next
Next
此主题相关图片如下:1.jpg