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


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

主题：语法解法
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/27 17:43:00 [显示全部帖子]

"textbox1"的enter事件：
Dim btn1 As WinForm.Button = e.Form.Controls("Button1")       '按钮 *
 btn1.Visible = True
"textbox1"的leave事件：
Dim btn1 As WinForm.Button = e.Form.Controls("Button1")       '按钮 *
 btn1.Visible = false
为什么进入控件textbox后能显示按钮*，但无法操作按钮，应怎么处理
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/27 18:00:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:华海仓库.zip

上述问题我已解决，但是为什么生成不了目录树

图片点击可在新窗口打开查看此主题相关图片如下：目录树.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/28 9:07:00 [显示全部帖子]

我后台表中有数据，怎么赋值

 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/28 10:48:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：目录树11.png
图片点击可在新窗口打开查看
如何实现到上图功能：
Dim tr As WinForm.TreeView  '定义指定【目录树】为tr
tr=e.Form.Controls("TreeView1")
Dim nd1,nd2 As WinForm.TreeNode  '定义目录树节点
nd1=e.Node  'nd为触发事件的节点
nd1.Nodes.Clear  '清除目录树节点
Dim dt1,dt2 As DataTable
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText="select * f rom 货类树 where 标题id like '" & nd1.name & "_'"
dt1=cmd.ExecuteReader()
For Each dr1 As DataRow In dt1.DataRows
    Dim str1 As String=dr1("标题id")
    Dim str2 As String=dr1("标题")
    nd1.Nodes.Add(str1,str2)
    cmd.CommandText="select * f rom 货类树 where 标题id like '" & str1 & "_'"
    dt2=cmd.ExecuteReader()
    For Each dr2 As DataRow In dt2.DataRows
        str1=("标题id")
        str2=("标题")
        nd2.Nodes.Add(str1,str2)
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/30 17:48:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：导航.png
图片点击可在新窗口打开查看
老师：请问下如何根据表b中的数据在窗口1中的导航栏中添加页面
如下代码应怎么修改：
Dim nvb1 As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
nvb1.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavBar"
Dim dt1 As DataTable
Dim cmd As new SQLCommand
'cmd.C
cmd.CommandText="select * f rom {表b} 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
 小大  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/9/30 20:56:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：导航.png
图片点击可在新窗口打开查看
老师：请问下如何根据表b中的数据在窗口1中的导航栏中添加页面
如下代码应怎么修改：
Dim nvb1 As WinForm.NavBar = e.Form.Controls("NavBar1")  '定义指定导航栏为nvb1
nvb1.NavPages.Clear  '清除指定的导航栏的页面
Dim Type1 As String = "NavBar"
Dim dt1 As DataTable
Dim cmd As new SQLCommand
'cmd.C
cmd.CommandText="select * f rom {表b} 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
 小大  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/10/4 17:11:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.zip

老师：请问下如何根据表A的数据在窗口1中的自动生成导航栏

图片点击可在新窗口打开查看此主题相关图片如下：目录树.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  58楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  59楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  60楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
总数 182 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..19
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询