以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]判断  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56712)
--  作者：lesliecheung912
--  发布时间：2014/9/11 10:52:00
--  [求助]判断
如何判断窗口中当前表的所有数据中，第一列的值是否相同？
--  作者：有点甜
--  发布时间：2014/9/11 10:57:00
--  

 全部相同？
--  作者：lesliecheung912
--  发布时间：2014/9/11 10:59:00
--  
比如有三条数据，怎样判断这三条数据的第一列的值是否完全相同？
--  作者：有点甜
--  发布时间：2014/9/11 11:01:00
--  
If Tables("表A").Rows.Count > 0 Then
    For i As Integer = 1 To Tables("表A").Rows.Count - 1
        If Tables("表A").Rows(i-1)("第一列") <> Tables("表A").Rows(i)("第一列") Then
            msgbox("不同")
            Exit For
        End If
    Next
End If
--  作者：lesliecheung912
--  发布时间：2014/9/11 11:06:00
--  
谢谢你甜姐
--  作者：lesliecheung912
--  发布时间：2014/9/11 12:01:00
--  
我现在要打印Excel报表，模板为附件，现在对于出库单，只有当分配单号为同一个时方可打印。
问题是：因为分配单号都相同，那么我想将分配单号放到表的上方，表中不在显示分配单号，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出库报表.xls

应该如何做呢
--  作者：有点甜
--  发布时间：2014/9/11 12:12:00
--  

 你这个参考分组报表即可

 

http://www.foxtable.com/help/topics/1542.htm