主题：流程控制

 

If dr1("流程") = "流程1" Then

                dr1("流程") = "流程2"

            ElseIf dr1("流程") = "流程2" Then

                dr1("流程") = "流程3"

            Else

                dr1("流程") = "完毕"

            End If

 

好像代码写对啦，结果怎么不对呢？

当前是“流程1”，执行代码后变成“完毕”，而非“流程2”，怎么回事？

写在按钮

控制SQL表

用Public变量定义一个DataTable,点一下按钮，如果流程列字符为“流程1”，就改写为“流程2”

稍等，我做个例子

应该是有问题的

例子来了，各位帮看看，哪的问题，谢谢。

详见窗口1

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事例.rar

  dr1 = jh.Find("[批次] = '" & pc & "' ")
        If dr1("流程") = "流程A" Then
            dr1("流程") = "流程B"
        ElseIf dr1("流程") = "流程B" Then
            dr1("流程") = "流程C"
        Else
            dr1("流程") = "完毕"
        End If
        jh.Save() 

 

哦，改成以上，但是结果是从“流程A”   变成“流程C”   ，为什么不是从“流程A”到“流程B”？

有道理，不要循环，那些代码怎么摆放啊？高难度啦，菜鸟不懂

Dim pc As String = e.Form.Controls("批次").Value
Dim sl As String = e.Form.Controls("数量").Text
Dim gx As String = e.Form.Controls("工序ID").Text
If gx <> "" Then
  ................
        Next
    Next
   Else
    MessageBox.show("未选择内容")
End If
 dr1 = jh.Find("[批次] = '" & pc & "' ")
    If dr1("流程") = "流程A" Then
        dr1("流程") = "流程B"
    ElseIf dr1("流程") = "流程B" Then
        dr1("流程") = "流程C"
    Else
        dr1("流程") = "完毕"
    End If
    jh.Save()  

 

放循环外了，但是报错，通不过

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