Question

我将某些Picturebox中的.tag值归因于数据集。

这完全可以使用我的主SQL查询。当我在某处更改值时添加不同的查询以运行时，.tag返回Nothing。请记住，我有完全相同的列数，唯一不同的是我过滤一个名称，将行数从40减少到6。

以下代码：

        If Form10.ComboBox1.Text = "Rock" Then
        Me.Sheet1TableAdapter.FillBy1(Me.Contract_ManagementDataSet2.Sheet1)

    End If

如果combobox.text是＆＃34; Rock＆＃34;

，则调用辅助查询

  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

FROM 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')

任何人都知道为什么？

Answer 1

我的查询中的行数导致的问题与我尝试填写的表单上的对象数量不匹配。

添加了：

Try
Catch ex as Exception
End Try

在旋转所有对象并填充它们的循环上，它现在绕过错误。

可能不是最干净的解决方案，但它解决了我的问题。

.tag在VB.NET中修改SQL Query时没有返回任何内容

1 个答案: