以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选相同的产品代号 进行确认  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177233)

--  作者:有点灰2
--  发布时间:2022/5/13 15:29:00
--  筛选相同的产品代号 进行确认


图片点击可在新窗口打开查看此主题相关图片如下:13.png
图片点击可在新窗口打开查看
我想是实现 1、 在批准开发确认后

2 、相似的工序都自动变成批准开发

 这部分看哪块的帮助 

 


--  作者:有点蓝
--  发布时间:2022/5/13 15:33:00
--  
筛选?http://www.foxtable.com/webhelp/topics/0448.htm
--  作者:有点灰2
--  发布时间:2022/5/13 15:49:00
--  
Filter   find  FindRow   这三个老是分不清要用哪个   怎么区分啊
--  作者:有点灰2
--  发布时间:2022/5/13 15:58:00
--  

If e.DataCol.Name = "批准开发" Then 

    Dim   dr1 As  DataRow = Tables("报价管理系统").
    Dim dr As DataRow
    dr = Tables("报价管理系统").Filter = "[生产加工评估_加工工序] like \'%" & dr1 & "% And [批准开发] = True "
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If

 

能不能帮改一下  或者帮着写一下  现在有点弄糊涂了

 

 


--  作者:有点蓝
--  发布时间:2022/5/13 16:09:00
--  
先去看这些功能的帮助文档和示例代码

Filter是筛选,用于table
find时候查询返回符合条件的行,用于datatable
FindRow时候查询返回符合条件的行位置,用于table

If e.DataCol.Name = "批准开发" Then 

    Dim   dr1 As  DataRow = e.DataRow
    Dim dr As DataRow
    dr = dataTables("报价管理系统").find("[生产加工评估_加工工序] like \'%" & dr1("xxx列,自己改") & "% And [批准开发] = True "
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")


--  作者:有点灰2
--  发布时间:2022/5/13 16:37:00
--  
能不能根据一楼的照片  给写一下   我参考一下 
--  作者:有点蓝
--  发布时间:2022/5/13 16:56:00
--  
这个意思?

If e.DataCol.Name = "批准开发" Then 

if e.newvalue then

    e.DdataTable.replacefor("批准开发”,true,"[生产加工评估_加工工序]=\'" & e.datarow("[生产加工评估_加工工序]") & "\' And [批准开发] = false"

    End If
End If


--  作者:有点灰2
--  发布时间:2022/5/13 17:05:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

不对啊 提示错误啊
--  作者:有点蓝
--  发布时间:2022/5/13 17:10:00
--  
手误,自己学会判断一下错误

e.dataTable.replacefor