Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教甜老大


  共有3124人关注过本帖树形打印复制链接

主题：请教甜老大
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		请教甜老大  发帖心情 Post By：2014/11/10 20:50:00 [只看该作者]

甜大师：好！
请问如何判断第一列的内容与第二列的内容相同且第三列的内容不相同的行？如果有进行提示？详见如下实例
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目30.zip
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目30.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/11/10 21:04:00 [只看该作者]

谢谢！
还可以这样用！用统计行数判断一样吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/10 21:05:00 [只看该作者]

 一样

 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/11/10 21:12:00 [只看该作者]

我现在越来越感觉到狐表的优越性了，最牛的就是有求必应，有问必答。
另外请教，像我这样购买开发版一年还没有什么建树的，有无必要买永久版？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/10 21:15:00 [只看该作者]

 有闲钱可以买，没必要一定要买，五年五年的升级也很划算

 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：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


请问：这样写是否一样？

为何运行较慢，如果数据行较多运行要很长时间，如何优化一下？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/11/10 22:39:00 [只看该作者]

请问数值列为何不能这样写表达式：“科目1=" & dr("科目1") 

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/10 22:56:00 [只看该作者]

 可以的

 

Dim fdr As DataRow = a.Table.DataTable.sqlFind("科目1=" & dr("科目1") & " and 科目2=" & dr("科目2") & " and 业务性质 <> '" & dr("业务性质") & "'")
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询