主题：求帮助

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

  在currentChanged事件写代码

 

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

那按钮上的文字怎么动态显示？

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

    Forms("窗口1").Controls("Button1").Text = "删除 " & e.Table.Current("国家编号")
End If

最后一问，按钮的宽度怎么根据字数来动态显示

Forms("窗口1").Controls("Button1").width= 13 * Forms("窗口1").Controls("Button1").Text.length

  这个无法自动适应的，你大概预计一个字符多宽，然后计算字符的个数*宽度即可。

谢谢