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