如题,我希望在选择要显示的颜色后,如红色,报表就显示红色的表格和其他红色的标题,但就是不能设置Section1细节中的样式,运行时老是报告下标越界,Section1细节中绑定了数据源,难道细节中的样式不能用代码控制吗?有哪位高手帮忙啊?小女子不胜感激!

解决方案 »

  1.   

    这样完全可以:
    Rpt.Sections("Section1").Controls("text1").ForeColor = &HC0&  'text1字体为红色是这个意思吗?
      

  2.   

    对啊,Rpt.Sections("Section1").Controls("text1").ForeColor = &HC0&  'text1字体为红色就是这句话,老是报下标越界的错啊
      

  3.   

    还有Rpt.Sections("Section1").Controls("text1").BorderColor = &HC0&  'text1字体为红色
    这句话也报“下标越界”的错!
    总之在细节部分设置样式都显示这个错误!
      

  4.   

    还有我的VB是打了sp6补丁的,不知会不会是这个问题
      

  5.   

    PrintDR.Sections(1).Controls("Text1").BorderStyle = 0
    这句话老是报下标越界的错
      

  6.   

    谢谢你,解决了问题了,是这句话的错PrintDR.Sections(1).Controls("Text1").BorderStyle = 0,应改为PrintDR.Sections(“Section1”).Controls("Text1").BorderStyle = 0
    太谢谢你了!万分感谢!能不能加你为好友啊,我的QQ是348723484