菜单按钮数限制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单按钮数限制

共有1813人关注过本帖树形打印复制链接主题：菜单按钮数限制

良才

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

菜单按钮数限制 发帖心情

Post By：2017/3/28 8:52:00 [显示全部帖子]

当学期数大于3个学期，保留3个学期，学期数小于3个学期保留原数，代码怎么改，请指教，谢谢

With e.Sender
.ShowContextStrip(0, .Height, e.Form.Strips("选择学期"))
End With

cmd.C
cmd.CommandText = "Se lect 学期 From {学生转学}"
dt = cmd.ExecuteReader()

If e.Form.Strips.Contains("选择学期") Then
    e.Form.Strips("选择学期").Items.Clear() '清除原来的项目
    For Each bj As String In dt.GetValues("学期","","学期 Desc")
        e.Form.Strips("选择学期").Items.Add(bj, bj, "", StripItemTypeEnum.MenuItem)
    Next
End If

良才

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

Post By：2017/3/28 9:22:00 [显示全部帖子]

还有个问题，想请教红色部分代码

Dim t As Table = e.Form.controls("Table1").Table
Sele ct Case e.StripItem.Name
Case "e.Form.Strips("选择学期").Items.Name"
t.Fill("Se lect 学期 From {学生转学}" WHERE 学期 = '"& e.Form.Strips("选择学期").Items.Name &"'","数据库", True)
End Select

[此贴子已经被作者于2017/3/28 9:30:04编辑过]

良才

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

Post By：2017/3/28 9:30:00 [显示全部帖子]

字符

良才

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：788 积分：6297 威望：0 精华：0 注册：2012/6/11 17:21:00

Post By：2017/3/28 9:31:00 [显示全部帖子]

这样可以吗?

Dim t As Table =e.Form.controls("Table1").Table
For Each sit As WinForm.StripItem In e.Form.Strips("选择学期").Items
    If sit.Name = e.StripItem.Text Then
        t.Fill("Se lect 学期 From {学生转学} WHERE 学期 = '" & e.StripItem.Text &"'","数据库", True)
    End If
Next

[此贴子已经被作者于2017/3/28 9:31:42编辑过]