以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  条件赋值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150840)
--  作者：有点蓝
--  发布时间：2020/6/9 9:09:00
--  
如果要对界面新增的行处理，使用Select即可，不需要使用SQLSelect
--  作者：有点蓝
--  发布时间：2020/6/9 9:56:00
--  
如果改为select，1楼红色2句代码就不需要了
--  作者：有点蓝
--  发布时间：2020/6/9 10:08:00
--  
上传实例说明
--  作者：有点蓝
--  发布时间：2020/7/28 21:35:00
--  
For Each  dr As  DataRow In drs
msgbox(dr("目前状态")) 能够弹出提示吗
    dr("目前状态") = "申请修磨"
    dr("库位") = "修磨仓库"
Next
DataTables("库存明细记录").SQLUpdate(drs) 
msgbox(DataTables("库存明细记录").loadfilter) 弹出什么提示
DataTables("库存明细记录").load
--  作者：有点蓝
--  发布时间：2020/7/28 22:16:00
--  
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("库位") = "修磨仓库"
    Next
    DataTables("库存明细记录").SQLUpdate(drs)
next
    DataTables("库存明细记录").load