以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如图这样的数据库结构能和TreeView生成吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115541)
--  作者：xxfoxtable
--  发布时间：2018/3/8 18:14:00
--  如图这样的数据库结构能和TreeView生成吗？

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
如果能怎么写代码？
[此贴子已经被作者于2018/3/8 18:14:14编辑过]
--  作者：有点甜
--  发布时间：2018/3/8 18:35:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2416.htm

 
--  作者：xxfoxtable
--  发布时间：2018/3/11 22:03:00
--  
 Dim dr As DataRow=DataTables("T_shopkind").AddNew
        If cb1.text="最顶层"
            dr("id")=DataTables("T_shopkind").Compute("max([id]")
            dr("mc")=txt1.text
            dr("upid")=0
            dr("addtime")=Date.Today
            dr("MemoValue")=txt2.text
            dr.Save
        Else
            dr("id")=DataTables("T_shopkind").Compute("max([id]")
            dr("mc")=txt1.text
            Dim syj As DataRow=DataTables("T_shopkind").find("名称=\'"& cb1.text &"\'")
            dr("upid")=syj("upid")
            dr("MemoValue")=txt2.text
            dr.Save
        End If
        msgbox("保存成功!!")

聚合参数中的语法错误: 需要具有可能的“Child”限定符的单个列参数。出现这样的错误
--  作者：有点甜
--  发布时间：2018/3/11 22:24:00
--  

Compute("max([id]")

 

改成

 

Compute("max(id)")