- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口Table选中数据校对问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90844)
-- 发布时间：2016/9/22 17:33:00
-- [求助]窗口Table选中数据校对问题
如下图：
此主题相关图片如下：飞信截图20160922173040.png
当选中行或多行时，将对选中的行进行内容进行校对；
若单位代码为一致，并且物料编号不能为空时，将选中表的物料名称及编号以新增方式复制到表B中；
请问应该如何处理？
-- 发布时间：2016/9/22 17:54:00
--
Dim cando As Boolean = True
Dim rs As List(of Row) = Tables("表A").GetCheckedRows
Dim bh As String = re(0)("单位代码")
For Each r As Row In rs
If r.IsNull("物料编号") OrElse bh <> r("单位代码") Then
cando = False
Exit For
End If
Next
If cando Then
Dim dr As Row
For Each r As Row In rs
dr = Tables("表B").AddNew
dr("物料编号") = r("物料编号")
......其它列
Next
End If