以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求帮助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59940)
--  作者：jialihaha
--  发布时间：2014/11/14 9:29:00
--  求帮助
表截图如下：

图片点击可在新窗口打开查看此主题相关图片如下：(8$$339x(r_$@t}pd1f%l~r.jpg
图片点击可在新窗口打开查看

求助，我现在想实现这样的功能：点击每一行，根据这一行的“可删除”列判断，对删除按钮做处理，如果是FALSE的，就生成一个灰色的不可用button，上面文字为“不可删除”；如果是true的，就生成一个可按button，上面文字为“删除+当前的行国家编号”


求帮忙，没思路
--  作者：有点甜
--  发布时间：2014/11/14 9:32:00
--  

  在currentChanged事件写代码

 

If Forms("窗口1").Opened Then
    Forms("窗口1").Controls("Button1").Enabled = e.Table.Current("可删除")
End If
--  作者：jialihaha
--  发布时间：2014/11/14 9:38:00
--  
那按钮上的文字怎么动态显示？
--  作者：有点甜
--  发布时间：2014/11/14 9:42:00
--  

If Forms("窗口1").Opened Then
    Forms("窗口1").Controls("Button1").Enabled = e.Table.Current("可删除")

    Forms("窗口1").Controls("Button1").Text = "删除 " & e.Table.Current("国家编号")
End If
--  作者：jialihaha
--  发布时间：2014/11/14 9:45:00
--  
最后一问，按钮的宽度怎么根据字数来动态显示
--  作者：Bin
--  发布时间：2014/11/14 9:48:00
--  
Forms("窗口1").Controls("Button1").width= 13 * Forms("窗口1").Controls("Button1").Text.length


13这个数字是每个字符的宽度,你自由调制到合适
--  作者：有点甜
--  发布时间：2014/11/14 9:50:00
--  
  这个无法自动适应的，你大概预计一个字符多宽，然后计算字符的个数*宽度即可。
--  作者：jialihaha
--  发布时间：2014/11/14 10:29:00
--  
谢谢