为什么系统自己添加颜色了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不可以，改了也不行

我的代码是这样写的：

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

这个控件名是：NumericComboBox1

主题：为什么系统自己添加颜色了？