'------------------------数量选择生成控件----------------------------
For j As Integer = 1 To 7
For i As Integer = 1 To 7
'------------------------订单主表----------------------------
Dim dr As String = e.Form.Controls("Ts_" & i & "_" & j).text
Dim dr2 As String = e.Form.Controls("Tg_" & j).text
Dim dr3 As String = e.Form.Controls("Tsy_" & i).text
If dr <> "" And dr2 <> "" And dr3 <> "" Then
'------------------------订单主表----------------------------
Dim lbl As WinForm.Label
lbl = Forms("数量选择").CreateControl("Label" & i & "_" & j, ControlTypeEnum.Label)
lbl.Height = 25
lbl.Width = 58
lbl.Left = 88 + 58 * (i - 1) - (i - 1)
lbl.Top = 96 + 25 * (j - 1) - (j - 1)
lbl.AutoSize = False
lbl.BorderColor = Color.Black
lbl.BackColor = Color.White
lbl.Font = New Font("Arial Narrow", 9)
lbl.BorderStyle = BorderStyle.FixedSingle
lbl.TextAlign = ContentAlignment.MiddleCenter
Forms("数量选择").AddControl(lbl)
' lbl.Text = i & "_" & j
'------------------------从订单主表引用数据----------------------------
lbl.Text = e.Form.Controls("Tsy_" & i).Value
lbl.Text = e.Form.Controls("Tg_" & j).Value
lbl.Text = e.Form.Controls("Ts_" & i & "_" & j).Value
End If
'------------------------从订单主表引用数据----------------------------
Next
Next
以上代码是在“订单主表”窗口的某个按钮上的，也就是如果“订单主表”上("Ts_" & i & "_" & j)如果没有数据则不会在“数量选择”窗口生成控件，那如果在“数量选择”窗口用以下代码不就有问题了吗？
Dim lb8 As WinForm.Label = e.Form.Controls("Label8-1")
If lb8.text <> "" Then
Dim i As Integer
If lb8.BackColor = Color.DimGray Then
lb8.ForeColor = Color.Black
lb8.BackColor = Color.Transparent
For i = 1 To 7
e.Form.Controls("Label" & i & "_1").BackColor = Color.White
e.Form.Controls("Label" & i & "_1").ForeColor = Color.Black
Next
ElseIf lb8.BackColor = Color.Transparent Then
lb8.ForeColor = Color.DarkGray
lb8.BackColor = Color.DimGray
For i = 1 To 7
e.Form.Controls("Label" & i & "_1").BackColor = Color.DarkGray
e.Form.Controls("Label" & i & "_1").ForeColor = Color.DimGray
Next
End If
End If
[此贴子已经被作者于2025/1/4 0:22:26编辑过]
加好友 
发短信
Post By：2025/1/3 14:56:00 [显示全部帖子]
此主题相关图片如下：提问图片.jpg
