主题：流程控制

 你代码写到什么地方？如果写在Datacolchanged事件，要加入列名判断

If e.DataCol.Name <> "流程" Then

End If

1、弹出 msgbox("aaa" & dr1("流程") & "bbb")

2、 去看一下你的Datacolchanged事件代码

 你的流程，根本就不是 流程1、流程2 那样的，而是A、B、C 那样。你弹出来看一下

msgbox(dr1("流程"))

你循环了两次啊。你加入msgbox弹出看一下。

你添加了几行，就循环了多少次

 代码写到循环外面去。

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