Foxtable(狐表)用户栏目专家坐堂 → 语法解法


  共有20259人关注过本帖树形打印复制链接

主题:语法解法

帅哥哟,离线,有人找我吗?
有点甜
  111楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/4 17:15:00 [只看该作者]

比如

 

Dim nvb1 As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
nvb1.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd As new SQLCommand
cmd.CommandText="select * from {表A} where 控件类型= '" & type1 & "'"
dt1=cmd.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    nvb1.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),"")
Next


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  112楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/5 0:07:00 [只看该作者]

'----打开"主窗口"后,自动根据【指定数据表】中的数据生成【导航栏】
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
Bar.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd1 As new SQLCommand
cmd1.CommandText="select * f rom {表B} where 控件类型= '" & type1 & "'"
dt1=cmd1.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    Bar.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),dr1("图标文件名") & ".ico")
Next
Bar.SelectedIndex = 0  '选中导航栏中第一个导航栏页面
Dim strs As String() ={"TreeView1","TreeView2","TreeView3","TreeView4","TreeView5"} '数组
For Each str As String In strs
    Dim tv As WinForm.TreeView = e.Form.CreateControl(str,ControlTypeEnum.TreeView)
    tv.SetBounds(-1,-1,210,600)
    For i As Integer = 0 To Bar.NavPages.Count-1
        Bar.NavPages(i).AddControl(tv)        
    Next
Next
老师请问下,我根据指定的数据,生成导航栏页面后,给每个导航页面中添加目录树,为什么上述代码无法实现

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  113楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/5 9:34:00 [只看该作者]

'----打开"主窗口"后,自动根据【指定数据表】中的数据生成【导航栏】---------------------------
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
Bar.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd1 As new SQLCommand
cmd1.CommandText="select * f rom {表B} where 控件类型= '" & type1 & "'"
dt1=cmd1.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    Bar.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),dr1("图标文件名") & ".ico")
Next
Bar.SelectedIndex = 0  '选中导航栏中第一个导航栏页面
'----给每个导航栏页面添加一个目录树-------------------------------------------------------
Dim strs As String() ={"TreeView1","TreeView2","TreeView3","TreeView4","TreeView5"} '数组
For Each str As String In strs
    Dim tv As WinForm.TreeView = e.Form.CreateControl(str,ControlTypeEnum.TreeView)
    tv.SetBounds(-1,-1,210,600)  '设置控件的位置和大小
    For i As Integer = 0 To Bar.NavPages.Count-1
        Bar.NavPages(i).AddControl(tv)        
    Next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  114楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/5 10:35:00 [只看该作者]

比如

 

'----打开"主窗口"后,自动根据【指定数据表】中的数据生成【导航栏】---------------------------
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
Bar.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavPage"
Dim dt1 As DataTable
Dim cmd1 As new SQLCommand
cmd1.CommandText="select * from {表A} where 控件类型= '" & type1 & "'"
dt1=cmd1.ExecuteReader()  '生成临时表
For Each dr1 As DataRow In dt1.DataRows
    'Add(Name页面名称, ButtonText页面按钮标题, ButtonImageFile按钮图标文件)
    '图标文件放大项目文件Images子目录下,就不无需指定路径
    Bar.NavPages.Add(dr1("页面名称"),dr1("按钮标题"),dr1("图标文件名") & ".ico")
Next
Bar.SelectedIndex = 0  '选中导航栏中第一个导航栏页面
'----给每个导航栏页面添加一个目录树-------------------------------------------------------
Dim strs As String() ={"TreeView1","TreeView2","TreeView3","TreeView4","TreeView5"} '数组
For i As Integer = 0 To strs.length-1
    Dim tv As WinForm.TreeView = e.Form.CreateControl(strs(i),ControlTypeEnum.TreeView)
    tv.SetBounds(-1,-1,210,600)  '设置控件的位置和大小
    Bar.NavPages(i).AddControl(tv)
Next


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  115楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/6 18:45:00 [只看该作者]








老师:请问下【华海仓库】表事件中所引用的 cmd.commandtext = "execute CKXPE '" & str & "'" 是在那里设置的
窗口1_Table1_CurrentChanged中所引用的如下代码是在那个地方设置的

    Dim dr1 As Row = dst1.Current '获得选定行

    Dim str As String = dr1("货品编码")

    Dim cbox As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")

    Select Case cbox.text

     Case "全部"

        cmd.CommandText = "execute CYMXA '1900-1-1','" & str & "'"

     Case "6"

        cmd.CommandText = "execute CYMXB '" & str & "'"

     Case "近一月"

        cmd.CommandText = "execute CYMXA '" & today.AddMonths(-1) & "','" & str & "'"

     Case "近三月"

        cmd.CommandText = "execute CYMXA '" & today.AddMonths(-3) & "','" & str & "'"

     Case "近一年"

        cmd.CommandText = "execute CYMXA '" & today.AddYears(-1) & "','" & str & "'"

     Case "近三年"       

        cmd.CommandText = "execute CYMXA '" & today.AddYears(-3) & "','" & str & "'"

    End Select





 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  116楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/6 18:48:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=1441&replyID=&skin=1

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  117楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/7 9:30:00 [只看该作者]

老师:请问下【华海仓库】表事件中所引用的 cmd.commandtext = "execute CKXPE '" & str & "'" 是在那里设置的
窗口1_Table1_CurrentChanged中所引用的如下代码是在那个地方设置的

    Dim dr1 As Row = dst1.Current '获得选定行

    Dim str As String = dr1("货品编码")

    Dim cbox As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")

    Select Case cbox.text

     Case "全部"

        cmd.CommandText = "execute CYMXA '1900-1-1','" & str & "'"

     Case "6"

        cmd.CommandText = "execute CYMXB '" & str & "'"

     Case "近一月"

        cmd.CommandText = "execute CYMXA '" & today.AddMonths(-1) & "','" & str & "'"

     Case "近三月"

        cmd.CommandText = "execute CYMXA '" & today.AddMonths(-3) & "','" & str & "'"

     Case "近一年"

        cmd.CommandText = "execute CYMXA '" & today.AddYears(-1) & "','" & str & "'"

     Case "近三年"       

        cmd.CommandText = "execute CYMXA '" & today.AddYears(-3) & "','" & str & "'"

    End Select



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  118楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 10:03:00 [只看该作者]

这个调用的是数据库的存储过程,这种用法已经过时了,现在可以参考:http://www.foxtable.com/webhelp/scr/3267.htm

华海这个实例,很多代码用法已经过时,建议参考别人的业务逻辑,不要抄代码

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  119楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:398 积分:2369 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/10/7 11:05:00 [只看该作者]

请问下老师,在那个地方可以找到数据库存储过程的定义

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  120楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/7 11:37:00 [只看该作者]


 回到顶部