- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Find问题（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94075)
-- 发布时间：2016/12/14 19:34:00
-- [求助]Find问题（已解决）
一列数据，最后两行分别为小计和合计，要求排除小计和合计，以下代码不能实现，如何解决，请各位老师指教，谢谢！！
For Each dr As DataRow In DataTables("班组工位").DataRows
If dr.IsNull("工位") = False Then
Dim pr As DataRow = DataTables("班组工位").Find("工位 = \'" & dr("工位") & "\' And (工位 <> \'小计\' Or 工位 <> \'合计\')")
If pr IsNot Nothing Then
MessageBox.Show(pr("工位"))
End If
End If
Next
[此贴子已经被作者于2016/12/14 20:24:07编辑过]
-- 发布时间：2016/12/14 20:09:00
--
Dim pr As DataRow = DataTables("班组工位").Find("工位 = \'" & dr("工位") & "\' And 工位 <> \'小计\' and 工位 <> \'合计\')")
-- 发布时间：2016/12/14 20:17:00
--
谢谢蓝老师的指教，但是代码运行出错，截图如下，请指教，谢谢！！
此主题相关图片如下：捕获20.png
-- 发布时间：2016/12/14 20:20:00
--
笔误
Dim pr As DataRow = DataTables("班组工位").Find("工位 = \'" & dr("工位") & "\' And 工位 <> \'小计\' and 工位 <> \'合计\'")
但是作为老用户，这么明显的错误提示都判断不了？
-- 发布时间：2016/12/14 20:24:00
--
谢谢蓝老师的指教，问题解决，再次感谢！！