主题：自动标记

此主题相关图片如下：11.png

 

 

求教：

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

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

利用FIND 按照_SortKey排序 

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

此主题相关图片如下：33.png

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

看2楼.把排序参考设置为     序号

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

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

有一个问题：

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

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

好像不行

 只要不报错，肯定可以。