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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单文本框显示问题

共有2192人关注过本帖树形打印复制链接主题：菜单文本框显示问题

zpsun2003

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

等级：幼狐帖子：137 积分：1329 威望：0 精华：0 注册：2018/4/19 21:34:00

菜单文本框显示问题 发帖心情

Post By：2019/3/28 16:44:00 [只看该作者]

If e.Table.Current("方案序号") <> 0 Then

RibbonTabs("方案选择").Groups("方案选择").Items("方案库").Text = e.Table.Current("方案库") ‘文本框’

RibbonTabs("方案选择").Groups("方案选择").Items("选择方案").value = e.Table.Current("方案序号") ‘数值框’

End If

这个代码中，选择不同行时，文本框内容显示不对呢，数值框内容没有问题，感觉应该是能被第一次赋值，之后就不管用了呢

有点甜

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

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

Post By：2019/3/28 16:46:00 [只看该作者]

currentchanged事件，写代码

msgbox(123)

If e.Table.Current("方案序号") <> 0 Then

msgbox(456)

RibbonTabs("方案选择").Groups("方案选择").Items("方案库").Text = e.Table.Current("方案库") ‘文本框’

RibbonTabs("方案选择").Groups("方案选择").Items("选择方案").value = e.Table.Current("方案序号") ‘数值框’

End If

zpsun2003

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

等级：幼狐帖子：137 积分：1329 威望：0 精华：0 注册：2018/4/19 21:34:00

Post By：2019/3/28 18:43:00 [只看该作者]

是写在那的，这段代码没有问题，是其他代码干扰了。谢谢

主题：菜单文本框显示问题