mshflexgrid多行各单元格内容不允许重复实现？

Question

Dim i As Integer
For i = (R - 1) * 4 + 1 - 1 To (R - 1) * 4 + 4 - 1
Debug.Print i
If Cai(i, 0) = NowCaiId Then
MsgBox "该菜已经在菜单中，请选择其他菜。", , "提示信息"
Exit Sub
End If
Next iSQL = "select * from caidan_menulist where riqi='" & NowRiQi & "' and caiid=" & NowCaiId
Rs.Open SQL, aNc
If Rs.RecordCount <> 0 Then
MsgBox "该菜在当日其他窗口中已经使用，请选择其他菜。", , "提示信息"
Rs.Close
Exit Sub
End If
Rs.Close

Answer 1

楼主在说什么?
Cai(i, 0)= NowCaiId   又是什么东东?

Answer 2

简单做法：
将GRID内容排序，MSFLEXGRID的SORT方法可以指定按照字符火数字排序。
排序之后，只要从头到底，依次判断相邻的两行的单元格内容是否相同就可以了。