以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动标记  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59852)

--  作者:1234567
--  发布时间:2014/11/12 11:52:00
--  自动标记


此主题相关图片如下:11.png
按此在新窗口浏览图片

 

 

求教:

    当我在生产状况列的某个单元格内输入已完成时,希望系统自动找到同一个任务单编号下一个序号的那一行,并把该行的生产状况内容自动改为待加工

   比如A1行改为已完成,系统自动找到A2行,并把生产状况改成待加工


--  作者:Bin
--  发布时间:2014/11/12 11:59:00
--  
利用FIND 按照_SortKey排序 


--  作者:有点甜
--  发布时间:2014/11/12 11:59:00
--  

If e.DataCol.Name = "生产状况" Then
    If e.NewValue = "已完成" Then
        Dim fdr As DataRow = e.DataTable.Find("任务单编号 = \'" & e.DataRow("任务单编号") & "\' and _Identify > " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            fdr("生产状况") = "待加工"
        End If
    End If
End If


--  作者:1234567
--  发布时间:2014/11/12 12:33:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:33.png
图片点击可在新窗口打开查看

我希望按照序号的次序更改,实际表格中数据排列的次序是混乱的


--  作者:Bin
--  发布时间:2014/11/12 14:04:00
--  
看2楼.把排序参考设置为     序号
--  作者:有点甜
--  发布时间:2014/11/12 14:15:00
--  

If e.DataCol.Name = "生产状况" Then
    If e.NewValue = "已完成" Then
        Dim fdr As DataRow = e.DataTable.Find("任务单编号 = \'" & e.DataRow("任务单编号") & "\' and 序号 > " & e.DataRow("序号"))
        If fdr IsNot Nothing Then
            fdr("生产状况") = "待加工"
        End If
    End If
End If


--  作者:1234567
--  发布时间:2014/11/13 9:52:00
--  

我在SQL Table表的DataColChanged事件上加入上述代码。

有一个问题:

如果我只加载部分数据,比如我加载了 A-1、A-3。但没有加载A-2数据,当我在A-1输入已完成时,A-3变成了待加工。而我需要的是要把A-2变成待加工。


--  作者:有点甜
--  发布时间:2014/11/13 9:53:00
--  

If e.DataCol.Name = "生产状况" Then
    If e.NewValue = "已完成" Then
        Dim fdr As DataRow = e.DataTable.SqlFind("任务单编号 = \'" & e.DataRow("任务单编号") & "\' and 序号 > " & e.DataRow("序号"))
        If fdr IsNot Nothing Then
            fdr("生产状况") = "待加工"

            fdr.Save
        End If
    End If
End If


--  作者:1234567
--  发布时间:2014/11/13 10:03:00
--  

好像不行


--  作者:有点甜
--  发布时间:2014/11/13 10:06:00
--  
 只要不报错,肯定可以。