如图，
此主题相关图片如下：捕获.png

请老师纠正一下，谢谢。
If e.Col.Name = "Priority" Then
              Dim cmd As new SQLCommand
           Dim dt As DataTable
            cmd.CommandText = "Se lect * From {t_SupplyEntry} Where FItemID = \'" & e.Row ("FItemID") & "\'and FPrioritized = 1 "
            cmd.C
            Dim Values = cmd.ExecuteValues
            dt = cmd.ExecuteReader(True)
            If Values.Count > 0 Then
            Dim fdr As  Row = dt.Find("FEntryID=" & e.Row("FEntryID") & "")
             If fdr Is Nothing Then
           
                 If MessageBox.Show("该产品已经设定过优先次序了,是否需要把原来的优先次序去除,重新设定当前产品为订单优先 ?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
               
                     fdr("FPrioritized")  = False
                    e.Row("Priority") = True
                  End If
                  e.Cancel = True

                 dt.Save()
            End If
           End If
End If