以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助一段小代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48863)
--  作者：jimmyhwang
--  发布时间：2014/4/7 19:33:00
--  [求助]求助一段小代码
要求勾选复选框的行的物流方式一致，不然的话提示“物流方式不一样无法批量打印！”
如此。。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:判断值是否全部相同小例.rar
--  作者：y2287958
--  发布时间：2014/4/7 20:01:00
--  
试一下这段代码可否：

Dim s As String
Dim rs As List(of Row) = Tables("表A").GetCheckedRows
For i As Integer = 1 To rs.Count-1
    If rs(i)("物流方式") <> rs(i-1)("物流方式")
        s = "物流方式不一样无法批量打印!"
    End If
Next
If s > ""
    MessageBox.Show(s)
End If
--  作者：jimmyhwang
--  发布时间：2014/5/10 17:23:00
--  
好用。谢谢~ 很久没上论坛了。。:)