老师,我系统做了登陆不加载表,使用哪个加载对应的表后,以下红色的代码没有起到作用(调整登录方式前是正常的),请帮忙看看,谢谢
If DataTables.Contains("库存明细记录") = False Then
DataTables.Load("库存明细记录")
End If
For Each dr3 As Row In Tables("修磨申请_申请下达").Rows
Dim drs As List(of DataRow) = DataTables("库存明细记录").SQLSelect("刀具代码 = '" & dr3("刀具代码") & "' And 单刀编码= '" & dr3("单刀编码") & "' And 材料编码 = '" & dr3("材料编码") & "'")
For Each dr As DataRow In drs
dr("目前状态") = "申请修磨"
dr("库位") = "修磨仓库"
dr("当前刃长") = dr3("出厂刃长")
Next
DataTables("库存明细记录").SQLUpdate(drs)
Next
DataTables("库存明细记录").load
DataTables("修磨申请_申请下达").deleteFor("材料编码 Is null")
DataTables("修磨申请_申请下达").Save()
DataTables("修磨申请_申请下达").RemoveFor("")
DataTables("修磨申请_过程审核").deleteFor("审核单据编码 Is null or 审核人员 Is null")
DataTables("修磨申请_过程审核").Save()
DataTables("修磨申请_过程审核").RemoveFor("")
e.form.Close