您的位置：程序门 -> vb -> 控件



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


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


mshflexgrid多行各单元格内容不允许重复实现？
发表于：2008-01-16 17:42:55 楼主
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   i

sql   =   "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

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击