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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单设计

共有1850人关注过本帖树形打印复制链接主题：菜单设计

zhupengfei

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

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

菜单设计

Post By：2014/9/23 9:07:00 [只看该作者]

我在菜单下有个ComboBox，按钮是通过表A的编号列动态加载的。

Dim xz As RibbonMenu.ComboBox = RibbonTabs("测试").Groups("测试").Items("编号选择")

我想限定 combobox的显示的text 。要求，寻找表A中判断为true的行的编号，如果没有，就为最小行的编号，如果还是没有，就在表A下新增编号为001的行，text显示001

我在功能区（名称为测试）的select tab事件下写了下面的代码。没能实现。我想问问。要实现这个功能，我需要在什么事件下写怎样的代码。

Dim tn As DataRow = DataTables("表A").Find("编号"，"判断 Desc")

if tn isnot nothing then

xz.text= tn("编号")

else

dim ts as datarow = datatables("表A").addnew

ts("编号")="001"

end if

下载信息 [文件大小：下载次数： ]
点击浏览该文件:求助事例.table

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/23 9:10:00 [只看该作者]

Dim tn As DataRow = DataTables("表A").Find("判断=True"，"编号 Desc")

if tn isnot nothing then

xz.text= tn("编号")

else

dim ts as datarow = datatables("表A").addnew

ts("编号")="001"

end if

zhupengfei

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

加好友

发短信

等级：幼狐帖子：155 积分：1345 威望：0 精华：0 注册：2013/7/31 9:47:00

Post By：2014/9/23 9:30:00 [只看该作者]

要求，寻找表A中判断为true的行的编号，如果没有，text就为最小行的编号，如果还是没有，就在表A下新增编号为001的行，text显示001

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/23 9:33:00 [只看该作者]

Dim tn As DataRow = DataTables("表A").Find("判断=True"，"编号 Desc")

if tn isnot nothing then

xz.text= tn("编号")

else

tn = DataTables("表A").Find(""，"编号")

if tn isnot nothing then

xz.text= tn("编号")

else

dim ts as datarow = datatables("表A").addnew

ts("编号")="001"

end if

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/23 9:35:00 [只看该作者]

Dim tn As DataRow = DataTables("表A").Find("判断=True","编号 Desc")
If tn IsNot Nothing Then
    xz.text= tn("编号")
Else
    tn = DataTables("表A").Find("","编号 Desc")
    If tn IsNot Nothing Then
        xz.text= tn("编号")
    Else
        Dim ts As DataRow = DataTables("表A").addnew
        ts("编号")="001"
    End If
End If

下一主题 >> << 上一主题

主题：菜单设计