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

真的不知到是什么原因了，我想可能是软件本身有问题吧。

这样试试。

 

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

这样试试。

 

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

 

这个之前不是有试过了吗？我看不出有何不同。

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

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

楼上的，你看一下7楼我所说的代码和你所说的是不是一样，测试的结果如我在7楼所说的一样。

如果代码正确，你也可以先删除了，再把代码粘贴进去试试，也许可以，我以前也有类似的问题

呵呵，这样如果可以，那就是软件本身的问题了。

 

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

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

通过菜单或者按钮重置“规格次序”列试试

我用C版的代码用商业版新建了一个项目测试就可以，但这些都是用内部数据表来的，我原来的项目是用开发版且数据表是连接外部数据数源的，所以不能上传。