能否设计出折叠式可计算可编辑table - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是新增单位工程的代码，其它自己参考做

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = trv.SelectedNode

If nd IsNot Nothing Then

If nd.Level = 4 Then

MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

ElseIf nd.Level = 0

MessageBox.Show("不能选择根节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Dim pr As DataRow = nd.DataRow

Dim dr As Row = Tables("项目结构").AddNew()

dr("项目编号") = pr("项目编号")

dr("工程名称") = pr("工程名称")

dr("标段名称") = pr("标段名称")

dr("单位工程") = "新建单位工程"

Dim bh As String= DataTables("项目结构").Compute("max(专业编号)","项目编号 = '" & pr("项目编号") & "'")

Dim id As Integer = 1

If bh > "" Then

id = cint(bh.SubString(pr("项目编号").Length + 1,2)) + 1

End If

dr("专业编号") = pr("项目编号") & "-" & Format(id,"00")

If nd.Level = 1

nd = nd.Nodes.Add("新建单位工程")

ElseIf nd.Level = 2

nd = nd.ParentNode.Nodes.Add("新建单位工程")

Else

nd = nd.ParentNode.ParentNode.Nodes.Add("新建单位工程")

End If

trv.SelectedNode = nd

trv.Select()

trv.BeginEdit()

End If

主题：能否设计出折叠式可计算可编辑table