以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请专家看一下这段代码还可以精简一些吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13166)
--  作者：jinzuchang
--  发布时间：2011/9/30 15:26:00
--  请专家看一下这段代码还可以精简一些吗？

求助如题。

 

代码如下。

 

e.Form.Controls("TreeView1").BuildTree("sys_company", "companycn|coname")

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


For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim tr As Row = Tables("sys_company").Current
    Dim dr As DataRow = DataTables("sys_company").Find("companycn=\'" & nd.Text & "\'")
    If dr IsNot Nothing Then \'如果在表找到对应的行,则将此行的值写入客户表的当前行.
        nd.text=nd.text & "(" & dr("itemnum") & ")"
    End If
Next
--  作者：狐狸爸爸
--  发布时间：2011/9/30 15:48:00
--  

我没有更好的办法。