主题：怎么我的目录树没有了第二子节选项？

   读书时学过一年电脑，数学和电脑我都非常好，就凭这些基础支撑我想学下去，老要请教你，请别见怪，不好意思。

     又出现问题了，还是代码的问题，我应利用51期间认真看看代码编写教程了，这是基础。
此主题相关图片如下：捕获.png

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

点击浏览该文件:包装车间工资表.table

列属性->禁止重复，设置成False

    谢谢。

价格表新增产品名称、单价，包装车间工资表没更新，重置列又引发调用目标发生异常提示了。

1、代码

 

Select Case e.DataCol.name
    Case "产品名称规格", "生产工序"
output.show("产品名称 = '" & e.DataRow("产品名称规格") & "' and 工序 = '" & e.DataRow("工序") & "'")
        Dim fdr As DataRow = DataTables("价格表").find("产品名称 = '" & e.DataRow("产品名称规格").replace("'", "''") & "' and 工序 = '" & e.DataRow("工序") & "'")
        If fdr IsNot Nothing
            e.DataRow("单价") = fdr("单价")
        End If
End Select

 

2、重置列可以这样写啊，价格表

 

If e.DataCol.name = "单价" Then
    DataTables("包装车间工资表").datacols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称") & "'")
End If

 

价格表的代码写成：

If e.DataCol.name = "单价" Then
    DataTables("包装车间工资表").datacols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称") & "'and 工序 = '" & e.DataRow("工序") & "'")
End If

 

更新引用成功了，我慢慢看RaiseDataColChanged这个函数，有点明白整段代码的意思了。

    认真理解也不难。

改一改

 

If e.DataCol.name = "单价" Then
    DataTables("包装车间工资表").datacols("产品名称规格").RaiseDataColChanged("产品名称规格 = '" & e.DataRow("产品名称").Replace("'", "''") & "'")
End If

为什么把工序去掉呢？Replace查找给定的子字符串，并用另一个子字符替换掉找到的子字符串。为什么替代？