- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教甜老大 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59776)
-- 发布时间：2014/11/10 20:50:00
-- 请教甜老大
甜大师：好！
请问如何判断第一列的内容与第二列的内容相同且第三列的内容不相同的行？如果有进行提示？详见如下实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目30.zip |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目30.zip |
-- 发布时间：2014/11/10 20:54:00
--
For Each dr As DataRow In DataTables("表A").DataRows
Dim fdr As DataRow = DataTables("表A").Find("第一列=\'" & dr("第一列") & "\' and 第二列=\'" & dr("第二列") & "\' and 第三列 <> \'" & dr("第三列") & "\'")
If fdr IsNot Nothing Then
msgbox("存在")
Exit For
End If
Next
[此贴子已经被作者于2014-11-10 20:54:11编辑过]
-- 发布时间：2014/11/10 21:04:00
--
谢谢！
还可以这样用！用统计行数判断一样吗？
-- 发布时间：2014/11/10 21:05:00
--
一样
-- 发布时间：2014/11/10 21:12:00
--
我现在越来越感觉到狐表的优越性了，最牛的就是有求必应，有问必答。
另外请教，像我这样购买开发版一年还没有什么建树的，有无必要买永久版？
-- 发布时间：2014/11/10 21:15:00
--
有闲钱可以买，没必要一定要买，五年五年的升级也很划算
-- 发布时间：2014/11/10 21:35:00
--
Dim hs As new List(of DataRow)
hs = a.Table.DataTable.sqlSelect("zzfl = \'" & ztzz & "\'and qymc = \'" & ztmc & "\'and kjnd = \'" & ztnd & "\'and yf = \'" & ztyf & "\'")
For Each dr As DataRow In hs
Dim fdr As DataRow = a.Table.DataTable.sqlFind("科目1=\'" & dr("科目1") & "\' and 科目2=\'" & dr("科目2") & "\' and 业务性质 <> \'" & dr("业务性质") & "\'")
If fdr IsNot Nothing Then
msgbox("存在")
Exit For
End If
Next
请问：这样写是否一样？
为何运行较慢，如果数据行较多运行要很长时间，如何优化一下？
-- 发布时间：2014/11/10 21:41:00
--
不要用sqlFind。
先查出dt，然后对dt进行find操作
Dim cmd As new SQLCommand
cmd.CommandText = "select * from {表A}"
Dim dt As DataTable = cmd.ExecuteReader
-- 发布时间：2014/11/10 22:39:00
--
请问数值列为何不能这样写表达式：“科目1=" & dr("科目1")
-- 发布时间：2014/11/10 22:56:00
--
可以的
Dim fdr As DataRow = a.Table.DataTable.sqlFind("科目1=" & dr("科目1") & " and 科目2=" & dr("科目2") & " and 业务性质 <> \'" & dr("业务性质") & "\'")