主题：为什么重置列不变化

这样试试。

If e.DataCol.Name = "工序编号"Then '发生变化的是工序编号吗?
    '在工序编码表找出该工序
    Dim dr As DataRow
    dr = DataTables("工序编码表").Find("工序编号 = " & "'" & e.DataRow("工序编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("工序名称")= dr("工序名称")
        e.DataRow("部门")= dr("部门")
        Dim dys As List(Of String) = DataTables("工序单价表").GetUniqueValues("","工序编号")
        For Each dy As String In dys
            dim n as integer = 0
            Dim drs As List(Of DataRow)
            drs = DataTables("工序单价表").Select("[工序编号] = '" & dy & "'")
            For Each dr1 As Datarow In drs
                n = n + 1
                dr1("规格次序") =Format(n,"000")
            Next
        next

       e.DataRow("工序规格码")=e.DataRow("工序编号") + e.DataRow("规格次序")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("部门") =Nothing
        e.DataRow("工序名称") = "还未有这个工序,请在工序编码表中设置"
        e.dataRow("规格次序") = ""
        e.dataRow("工序规格码")=""
    End If
End If
If e.DataCol.Name = "规格次序" Then
    e.DataRow("工序规格码")=e.DataRow("工序编号") + e.DataRow("规格次序")
End If

既然你以前已试过就不用再试了。

不过我可没看到你有试过这样的代码。