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

你用的是菜单中的重置按钮吗，按道里不会这样的，因为菜单的重置是针对所有行的。

另外你的代码，为啥两个 If e.DataCol.Name = "工序编号" Then ？

通常应该这样：

If e.DataCol.Name = "工序编号" Then
    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 dr As Datarow In drs
            n = n + 1
            dr("规格次序") =Format(n,"000")
        Next
    next
    if e.dataRow.IsNull("工序编号")
        e.dataRow("规格次序") = ""
    end if
    e.DataRow("工序规格码")=e.DataRow("工序编号") + e.DataRow("规格次序")
End If

当然这不影响计算的，只是不规范。

规格次序 和 工序规格码，前者是所有行都算了一次，后者则只是触发事件的行算了一次 。

代码是死的，你让他干啥就干啥，不会多干一点，也不会少干一点，你自己慢慢分析吧。

实在搞不定，就做个简单的例子上来，而且要具体第描述问题：出于什么目的？ 在什么事件写了什么代码？ 希望的情况应该怎样？ 现在的情况却是怎样？

If e.DataCol.Name = "规格次序" Then
    e.DataRow("工序规格码")=e.DataRow("工序编号") + e.DataRow("规格次序")
End If

改为：

If e.DataCol.Name = "规格次序" Orlese e.DataCol.Name = "工序编号" Then
    e.DataRow("工序规格码")=e.DataRow("工序编号") + e.DataRow("规格次序")
End If

从理论来说，这是不可能的事情。

我没有别的办法了，我投降，你自己慢慢研究，搞不定就做一个简单的例子测试，我们有办法继续蒙下去了

1、C版的代码肯定和你不同，你看仔细一点。

2、不要轻易怀疑是软件的问题，重置列是基本功能，每个人都要使用的，搞不定的问题就应该做个简单的例子上来，而不是让大家瞎蒙。

内外无差别的。

用重定向，可以将外部表转为内部表，不过先要备份一下。

如果你将“工序规格码”的长度设置为20个字符了，重置列会看到这样的结果：

此主题相关图片如下：test11.bmp
 

你的工序规格码最大允许10个字符，也就是最多接受10个字符的内容，你原来输入的工序编号不是“80001”，你输入的是“80001     ”， 加上规格次序“001”，就是“80001     001”，但是工序规格码最大长度是10个字符看，所以只接收了前10个字符，所以结果就成了“80001     ”

1、为啥多出空格，这要问你自己了。

2、空格当然是看不见的，要细心才行，查看复制到写字板好一些。 

3、批量删除空格：

   For Each r As Row in Tables("xxx").Rows

      r("yyy") = R("yyy").Trim

   Next

这些属于编程基础了，你需要好好看看帮助了