请教甜老大 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3126人关注过本帖树形打印复制链接主题：请教甜老大

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

hbhb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/10 21:04:00 [显示全部帖子]

谢谢！

还可以这样用！用统计行数判断一样吗？

hbhb

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/10 21:12:00 [显示全部帖子]

我现在越来越感觉到狐表的优越性了，最牛的就是有求必应，有问必答。

另外请教，像我这样购买开发版一年还没有什么建树的，有无必要买永久版？

hbhb

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

请问：这样写是否一样？

为何运行较慢，如果数据行较多运行要很长时间，如何优化一下？

hbhb

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/10 22:39:00 [显示全部帖子]

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

hbhb

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/10 23:00:00 [显示全部帖子]

如果有空值好像就不行了，是否要判断此列的值后再查找？

hbhb

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/11/10 23:28:00 [显示全部帖子]

继续请教

请问如何再筛选出这些行，并标不同的颜色？

下一主题 >> << 上一主题

主题：请教甜老大