以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码放在控件中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142793)
--  作者：有点蓝
--  发布时间：2019/11/6 14:18:00
--  
dim dr3 as row = tables(xxx).current
if dr3 isnot nothing then
Dim filter As String
        filter = "生产批次 = \'" & dr3("生产批次") & "\' And 加工工序= \'" & dr3("加工工序") & "\' And 成品编码 = \'" & dr3("成品编码")  & "\' And 加工次数 = \'" & dr3("加工次数") & "\' And 使用设备 = \'" & dr3("使用设备") & "\'"
        Dim pr3 = DataTables("生产任务总表").SQLFind(filter)
        If pr3 IsNot Nothing Then
            pr3("配刀单号") = e.Form.Controls("配刀单号1").Text
            pr3.save
        End If
endif
--  作者：有点蓝
--  发布时间：2019/11/6 15:32:00
--  
后台数据库有符合条件的数据吗？使用SQLFind直接改的数据库数据，界面需要重新加载才能刷新的
--  作者：有点蓝
--  发布时间：2019/11/6 15:48:00
--  
界面需要重新加载才能刷新的
--  作者：有点蓝
--  发布时间：2019/11/6 16:10:00
--  
参考：http://www.foxtable.com/webhelp/topics/1933.htm
--  作者：有点蓝
--  发布时间：2019/11/6 16:26:00
--  
       Dim pr3 = DataTables("出入库明细").SQLFind(filter)
        If pr3 IsNot Nothing Then
            pr3("成品去向") = 1
            pr3.save
DataTables("出入库明细").load
        End If
--  作者：有点蓝
--  发布时间：2019/11/7 11:27:00
--  
SQLFind本来就只是查询返回一条记录的，如果有多条请使用sqlselect：http://www.foxtable.com/webhelp/topics/2900.htm
--  作者：有点蓝
--  发布时间：2019/11/7 12:15:00
--  
请认真看看和理解帮助的用法