主题：目录树疑问

DataColChanging 事件，注意，修改的是 [客户产品号] 的时候

If e.DataCol.Name = "客户产品号" Then '如果内容发生变动的是品名列
    Dim dr As DataRow
    dr = DataTables("出库明细").Find("[客户产品号] = '"& e.newValue & "'and  [客户订单号] = '"& e.DataRow("客户订单号") & "'and [订单行号] = '"& e.DataRow("订单行号") & "' ")
    If dr IsNot Nothing Then '如果找到的话
        msgbox("该订单已经出货了,不允许修改")
        e.Cancel = True
    Else
        e.DataRow("订货数量") = Nothing
        e.DataRow("含税单价") = Nothing
        e.DataRow("未税单价") = Nothing
        e.DataRow("交货日期") = Nothing
        e.DataRow("产品描述") = Nothing
    End If
End If

 看5楼，你的代码是修改 客户产品号 的时候，才会触发代码的啊，修改其它列不会触发啊。

 那你可以在下拉窗口那里也判断，如果找到对应的行，就提示，不能修改。

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("订单主表.订单明细表").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
   
    Dim fdr As DataRow
    fdr = DataTables("出库明细").Find("[客户产品号] = '"& tr("客户产品号")& "'and  [客户订单号] = '"& tr("客户订单号") & "'and [订单行号] = '"& tr("订单行号") & "' ")
    If fdr IsNot Nothing Then
        msgbox("已存在,不能修改")
    Else
        tr("客户产品号") = dr("客户产品号")
        tr("材料编号") = dr("材料编号")
        tr("内控产品号") = dr("内控产品号")
        tr("产品描述") = dr("产品描述")
        e.Form.DropDownBox.Value = tr("客户产品号") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
        e.Form.DropDownBox.CloseDropdown()
    End If
End If