- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么系统自己添加颜色了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61278)
-- 发布时间：2014/12/10 10:53:00
-- 为什么系统自己添加颜色了？
为什么系统自己添加颜色了？
所有代码写好，测试也没问题，结果也对，就是这个控制的背景色系统自动改了，我没有在其它地方设计过！如图：
不知道什么原因，求指点？
此主题相关图片如下：qq截图20141210105033.png
此主题相关图片如下：qq截图20141210105033.png-- 发布时间：2014/12/10 10:53:00
--
1.你改过忘记了.
2.你WIndows系统样式改过了.
-- 发布时间：2014/12/10 10:58:00
--
windows系统样式在那改？
-- 发布时间：2014/12/10 11:00:00
--
以下是引用zsslly在2014-12-10 10:58:00的发言：
windows系统样式在那改？
windows系统样式在那改？
背景颜色改成 web 的具体颜色即可
-- 发布时间：2014/12/10 13:02:00
--
不可以，改了也不行
我的代码是这样写的：
If Forms("设计部分析大类").Opened Then
\'项目计数,填充文本框
Forms("设计部分析大类").Controls("TextBox1").value = DataTables("峰和设计部").compute("Count([编号])","编号 Is Not Null")
Select Case e.DataCol.Name
Case "操作性"
If Forms("设计部分析大类").Opened Then
Forms("设计部分析大类").Controls("TextBox2").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'签单\'")
Forms("设计部分析大类").Controls("TextBox3").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'跑单\'")
Forms("设计部分析大类").Controls("TextBox4").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'可操作\'")
Forms("设计部分析大类").Controls("TextBox5").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'等待中\'")
Forms("设计部分析大类").Controls("TextBox6").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'预收设计\'")
Forms("设计部分析大类").Controls("TextBox7").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'预签\'")
Forms("设计部分析大类").Controls("TextBox8").value = DataTables("峰和设计部").compute("Count([编号])","操作性 = \'未知\'")
End If
End Select
\'计算百分比
Dim zc As Integer = CInt(Forms("设计部分析大类").Controls("TextBox1").Value) \'在册
If zc > 0 Then
\'Dim jt As Integer = CInt(Forms("设计部分析大类").Controls("TextBox8").Value) \'津贴
Dim a As Integer = CInt(Forms("设计部分析大类").Controls("TextBox2").Value) \'A
Dim b As Integer = CInt(Forms("设计部分析大类").Controls("TextBox3").Value) \'B
Dim c As Integer = CInt(Forms("设计部分析大类").Controls("TextBox4").Value) \'C
Dim d As Integer = CInt(Forms("设计部分析大类").Controls("TextBox5").Value) \'D
Dim h As Integer = CInt(Forms("设计部分析大类").Controls("TextBox6").Value) \'E
Dim f As Integer = CInt(Forms("设计部分析大类").Controls("TextBox7").Value) \'F
Dim g As Integer = CInt(Forms("设计部分析大类").Controls("TextBox8").Value) \'G
\'Dim jtbf As Double = IIf(jt=0,0,jt/zc*100)
Dim abf As Double = IIf(a=0,0,a/zc*100)
Dim bbf As Double = IIf(b=0,0,b/zc*100)
Dim cbf As Double = IIf(c=0,0,c/zc*100)
Dim dbf As Double = IIf(d=0,0,d/zc*100)
Dim hbf As Double = IIf(h=0,0,h/zc*100)
Dim fbf As Double = IIf(f=0,0,f/zc*100)
Dim gbf As Double = IIf(g=0,0,g/zc*100)
\'Forms("设计部分析大类").Controls("TextBox6").Value = Format(Math.Round(jtbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox1").Value = Format(Math.Round(abf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox2").Value = Format(Math.Round(bbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox3").Value = Format(Math.Round(cbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox4").Value = Format(Math.Round(dbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox5").Value = Format(Math.Round(hbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox6").Value = Format(Math.Round(fbf,2),"0.00")
Forms("设计部分析大类").Controls("NumericComboBox7").Value = Format(Math.Round(gbf,2),"0.00")
End If
End If
这个控件名是：NumericComboBox1
-- 发布时间：2014/12/10 14:08:00
--
你的代码，跟背景颜色无关的。
你去到控件那里，设置此控件的背景颜色即可。
-- 发布时间：2014/12/10 15:10:00
--
不行的，我试过了！
此主题相关图片如下：qq截图20141210150901.png
-- 发布时间：2014/12/10 15:12:00
--
背景颜色,你选为WEb颜色的白色
-- 发布时间：2014/12/10 15:16:00
--
试过了，如果改不了就算了吧，不能老是耽误老师时间，也有可能是个bug
此主题相关图片如下：qq截图20141210151433.png
-- 发布时间：2014/12/10 15:16:00
--
回复楼上，那就不应该，你的哪些代码肯定设置过Backcolor吧？
做个例子瞧瞧