主题：自己动手设计筛选树

做一个【刷新】按钮，把你afterLoad事件的代码拷贝出来，放进去，即可。

上传具体出错实例说明，不然自行调试 http://www.foxtable.com/webhelp/scr/1485.htm

DataColChanged事件，修改代码

Select e.DataCol.Name
    Case "物资类别_三级"
        If e.DataRow.IsNull("物资类别_三级") Then
            e.DataRow("物资编码") = Nothing
        Else
            Dim lb As String = e.DataRow("物资类别_三级")
            If e.DataRow("物资编码").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(物资编码)","物资类别_三级 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(lb.length,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("物资编码") = lb & Format(idx,"000")
            End If
        End If
End Select

请正确上传图片

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

1、click、doubleclick事件

e.table.StartEditing

2、没看懂你的意思。你把数量改成正数、负数，不就可以了？

如果你目录树根据表A生成，你就不能在重新load表A的数据了，不然就会报错。

或者，重新load表A数据后，重新生成一次目录树，这样也能解决。

1、你在哪里写了DataTables("表A").Load的代码？

2、在Load的代码后面，重新buildTree；或者表格afterLoad事件，重新buildTree。