如果改成以下，找到后有出现提示如果找到，但是 Values("FPrioritized") = 0 没有变更过来
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
If Values.Count > 0 Then
dt = cmd.ExecuteReader(True)
If MessageBox.Show("该产品已经设定过优先次序了,是否需要把原来的优先次序去除,重新设定当前产品为订单优先 ?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Values("FPrioritized") = 0
e.Row("Priority") = True
Else
e.Row("Priority") = False
End If
dt.Save()
End If
End If
加好友 
发短信
Post By：2021/4/13 21:08:00 [显示全部帖子]
