主题：数据提取问题

比如，会计科目递归函数目录树，节点长度不固定，有的只有一个节点01，有的有两个节点01、0101，有的有三个节点01、0101、010101等，双击任意一个节点，实现利用目录树快速输入“科目名称和科目代码。请教下列代码如何修改?

If e.node.nodes.count = 0 Then

    Dim tr As Row

    Dim dr As DataRow = e.Node.DataRow

    If e.Form.DropTable IsNot Nothing Then

        tr = e.Form.DropTable.Current

    Else

        Dim nm As String = e.Form.DropDownBox.BindingField

        nm = nm.Split(".")(0)

        tr = Tables(nm).Current

    End If

    tr("科目名称") = dr("科目名称")'自动录入数据

    tr("科目代码") = dr("科目代码")     

     e.Form.DropDownBox.Value = tr("科目名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.  

    Forms("级码目录树输入").Controls("TreeView1").CollapseAll '关闭目录树所有节点     

    e.Form.DropDownBox.CloseDropdown()

End If

也就是点第一节点，输入第一节点的内容，双击第二节点，输入第二节点内容，依次

http://www.foxtable.com/webhelp/topics/0906.htm

将表B的"第二列"标题字体设为"仿宋", 字体大小11号，加粗, 下面代码正确

Tables("表B").SetHeaderCellFont("第二列", New Font("仿宋", 11, FontStyle.Bold))

 

如果只需要加粗, 其他不改变, 下面代码不正确, 请问老师如何修改

Tables("表B").SetHeaderCellFont("第二列", FontStyle.Bold)

感谢老师修改的代码。

窗口AfterLoad代码：

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

trv.BuildTree("安置人员字典", "迁出乡镇|迁出行政村|迁出村名|姓名", "", "排序号")'使用排序

trv.Nodes.Insert("显示所有行", 0)

Tables("安置人员字典").Filter = "姓名 Is null"

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    If nd.Level = 3 Then '如果是4级节点    

         nd.Text = nd.DataRow("排序号") & "〔" & nd.text & "〕" & nd.DataRow("安置人员编号")

    End If

Next

trv.ResumeRedraw '恢复绘制目录树

 

 

AfterSelectNode事件代码：

Select Case e.Sender.SelectedNode.name '对所选树的节点的内容来做判断    

    Case Else

        If e.Node.Name = "显示所有行" Then

            Tables("安置人员字典").Filter = ""

        Else

            Dim Value()As String

            Dim Filter As String

            Value = e.Node.FullPath.Split("\")

            Select Case e.Node.Level

                Case 0

                    Filter = "迁出乡镇 = '" & Value(0) & "'"

                Case 1

                    Filter = "迁出乡镇 = '" & Value(0) & "'and 迁出行政村 = '" & Value(1) & "'"

                Case 2

                    Filter = "迁出乡镇 = '" & Value(0) & "'and 迁出行政村 = '" & Value(1) & "'and 迁出村名 = '" & Value(2) & "'"

                Case 3

                    Filter = "迁出乡镇 = '" & Value(0) & "'and 迁出行政村 = '" & Value(1) & "'and 迁出村名 = '" & Value(2) & "' And 姓名 = '" & Value(3) & "'"

            End Select

            Tables("安置人员字典").Filter = Filter

        End If

End Select

蓝老师，上述代码运行发现一个问题，点击目录树最后一个节点（姓名），表中没有数据，请教怎么修改代码？

可能姓名这一列数据有问题，比如有多余的空格等

我也不知怎么修改才能对应？还望老师指导

改为使用FullName：http://www.foxtable.com/webhelp/topics/2622.htm

好的