专家坐堂-表属性时间触发Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表属性时间触发  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104951)

--  作者：1186
--  发布时间：2017/8/9 8:14:00
--  表属性时间触发
通过修改“销售订单”，优先级字段的值，触发判断事件。
判断条件为通过“销售订单”的品号匹配“生产主计划上阶123”的品号找到工单单号，在匹配“生产主计划”的工单单号，然后在“生产主计划”优先级字段赋予“销售订单”优先级相同的值。
Case "优先级"
Dim dr As DataRow
dr = DataTables("生产主计划上阶123").Find("ITEM_CODE= \'" & e.DataRow("品号") & "\' and CUSTOMER_ORDER_NO = \'" & e.DataRow("客户单号") & "\' ")
If dr IsNot Nothing Then
dr("ITEM_NAME")= "成功"
Dim dtr As DataRow
dtr = DataTables("生产主计划").Find("工单单号= \'" & dr("DOC_NO") & "\'")
If dtr IsNot Nothing Then

End If
End If

--  作者：1186
--  发布时间：2017/8/9 8:37:00
--

--  作者：有点甜
--  发布时间：2017/8/9 8:39:00
--

上传图片参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

--  作者：有点甜
--  发布时间：2017/8/9 8:43:00
--
你的代码基本上没问题，请详细说明。

--  作者：1186
--  发布时间：2017/8/9 9:26:00
--

此主题相关图片如下：qq截图20170809093331.png

"生产主计划上阶123"中品号-销售订单-客户单号与工单单号既有一个订单对应多个工单，也有一张工单对应多个订单的情况，上述触发代码实现不了功能（订单表里的优先级变更后，自动变更生产主计划表中与该订单相关的工单的优先级）。

此主题相关图片如下：qq截图20170809094504.png

[此贴子已经被作者于2017/8/9 9:45:31编辑过]

--  作者：1186
--  发布时间：2017/8/9 9:30:00
--

[此贴子已经被作者于2017/8/9 9:42:24编辑过]

--  作者：有点甜
--  发布时间：2017/8/9 11:03:00
--

这个意思？

Dim drs = DataTables("生产主计划上阶123").Select("ITEM_CODE= \'" & e.DataRow("品号") & "\' and CUSTOMER_ORDER_NO = \'" & e.DataRow("客户单号") & "\' ")
For Each dr As DataRow In drs
    dr("ITEM_NAME")= "成功"
    For Each dtr As DataRow In DataTables("生产主计划").Select("工单单号= \'" & dr("DOC_NO") & "\'")
        dtr("优先级") = e.DataRow("优先级")
    Next
next

--  作者：1186
--  发布时间：2017/8/17 15:41:00
--

以下是引用有点甜在2017/8/9 11:03:00的发言：

这个意思？

Dim drs = DataTables("生产主计划上阶123").Select("ITEM_CODE= \'" & e.DataRow("品号") & "\' and CUSTOMER_ORDER_NO = \'" & e.DataRow("客户单号") & "\' ")
For Each dr As DataRow In drs
    dr("ITEM_NAME")= "成功"
    For Each dtr As DataRow In DataTables("生产主计划").Select("工单单号= \'" & dr("DOC_NO") & "\'")
        dtr("优先级") = e.DataRow("优先级")
    Next
next

此主题相关图片如下：qq截图20170817153758.png

用你的代码，出现这样的问题。

此主题相关图片如下：qq截图20170817153725.png

然后重新定义下，出现这样问题。

--  作者：有点甜
--  发布时间：2017/8/17 15:49:00
--
Dim drs9 = DataTables("生产主计划上阶123").Select("ITEM_CODE= \'" & e.DataRow("品号") & "\' and CUSTOMER_ORDER_NO = \'" & e.DataRow("客户单号") & "\' ")
For Each dr9 As DataRow In drs9
    dr9("ITEM_NAME")= "成功"
    For Each dtr99 As DataRow In DataTables("生产主计划").Select("工单单号= \'" & dr9("DOC_NO") & "\'")
        dtr99("优先级") = e.DataRow("优先级")
    Next
Next