我要从数据集中为某些Picturebox分配一个.tag值。
使用我的主SQL查询,这可以完美地工作。当我添加其他查询以在某个地方更改值时运行时,.tag返回Nothing。请记住,我具有完全相同的列数,唯一不同的是我正在筛选一个名称,该名称会将行数从40减少到6。
代码如下:
If Form10.ComboBox1.Text = "Rock" Then Me.Sheet1TableAdapter.FillBy1(Me.Contract_ManagementDataSet2.Sheet1) End If
如果combobox.text为“ Rock”,则此方法称为辅助查询。
For Each PictSlas In Arr_PicSlAch For Each PictCom In Arr_PicCom Select Case PictSlas.Tag Or PictCom.Tag Case > 4 PictSlas.BackColor = Color.Green PictCom.BackColor = Color.Green Case > 3 PictSlas.BackColor = Color.GreenYellow PictCom.BackColor = Color.GreenYellow Case > 2 PictSlas.BackColor = Color.Gold PictCom.BackColor = Color.Gold Case > 1 PictSlas.BackColor = Color.DarkOrange PictCom.BackColor = Color.DarkOrange Case > 0 PictSlas.BackColor = Color.Red PictCom.BackColor = Color.Red Case 0 PictSlas.Visible = False PictCom.Visible = False End Select
前面的代码作用于SQL查询赋予每个图片的标签上。我有一个用于图片框的数组和一个变量,该变量按顺序用数据源中的数据填充它们。
当我使用初始SQL查询时,所有这些都有效:
SELECT ID, Vendor, [SLA Achievement] + Commercial + [Operation Stability] + [Cont Improvement] + Partnering AS [Overall Status], [Contract Expiry Date], [SLA Achievement], Commercial, [Operation Stability], [Cont Improvement], Contract, Partnering 从Sheet1
但是,当我将查询更改为以下查询时,它将停止工作,并且所有标记均返回Nothing或Null:
SELECT ID, Vendor, [SLA Achievement] + Commercial + [Operation Stability] + [Cont Improvement] + Partnering AS [Overall Status], [Contract Expiry Date], [SLA Achievement], Commercial, [Operation Stability], [Cont Improvement], Contract, Partnering FROM Sheet1 WHERE (Vendor = 'Rock')
有人知道为什么吗?