Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨多表查询出现次数


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

主题：跨多表查询出现次数
美女呀，离线，留言给我吧！
ganlan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		跨多表查询出现次数  发帖心情 Post By：2021/6/2 20:29:00 [只看该作者]

我想在A表的次数列，写入，以A列为条件，查B/C/D/E表A列是否出现，如果出现1次A表的次数列就写1，出现2次写入2，这个需要怎么写代码呀

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


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 8:53:00 [只看该作者]

大概这样：

……列名判断
dim cmt as integer = 0
if datatables("B").compute("count(A列)","A列='" & e.datarow("A列") & "'") > 0 then 
cmt =cmt + 1
end if
if datatables("C").compute("count(A列)","A列='" & e.datarow("A列") & "'") > 0 then 
cmt =cmt + 1
end if
e.datarow("次数") = cmt
……
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/3 22:09:00 [只看该作者]


谢谢，同时再请教一下，CSV格式的excel表的总会带“”，代表回车还是什么导入狐表的时候，都会这样，如何把前面的空的内容批量去掉


图片点击可在新窗口打开查看此主题相关图片如下：360截图20210603220556665.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20210603220652393.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20210603220642642.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 22:31:00 [只看该作者]

按文本文件的方式导入：http://www.foxtable.com/webhelp/topics/0185.htm

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/3 22:57:00 [只看该作者]

好像还是去不掉，需要再记事本的"替换成空白导入才可以。再请教个问题，筛选如果是多列筛选，没办法像EXCEL哪里有只改变一列的筛选关键词，必须全部都取消清除，再重复弄一遍才可以是吧，比如A列筛选A，B列筛选B后，C列有C和D，我想筛选A+B+C后再想筛选A+B+D，就必须全部取消，然后再筛选A，再筛选B，再筛选D，这样才行，不能AB列不变直接筛选D
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/3 23:04:00 [只看该作者]

如果在菜单里筛选只能这样。

自己写代码处理，比如：http://www.foxtable.com/webhelp/topics/0451.htm

Tables("订单").Sort = "A,B,D"
 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/4 12:36:00 [只看该作者]


你好，请问一下我表格的数据是有时间的，但是导入后是没有时间的，我看了列的格式是日期时间，我删了重新导还是一样，
图片点击可在新窗口打开查看此主题相关图片如下：360截图20210604123209323.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：360截图20210604123202219.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/6/4 12:36:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/4 13:35:00 [只看该作者]

这个要使用vba导：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/4 15:11:00 [只看该作者]

但是很奇怪，我前两天弄的一个表，又可以导入

 回到顶部
美女呀，离线，留言给我吧！
ganlan
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：189 积分：1233 威望：0 精华：0 注册：2021/4/17 10:35:00 		  发帖心情 Post By：2021/6/4 15:13:00 [只看该作者]

再请教个问题
If e.DataCol.Name = "商品ID" Then
      If e.NewValue Is Nothing Then
         e.DataRow("成本") = Nothing 
   Else '否则
Dim ar As DataRow 
       ar = DataTables("价格表").Find("[商品ID] = '" & e.NewValue & "'") 
   If ar IsNot Nothing And e.DataRow("订单状态") IsNot "已关闭"  Then 
            e.DataRow("成本") = ar("价格") 
  Else
   e.DataRow("成本") =  Nothing
End If
End If
End If

这个代码中想加上判断订单状态不是已关闭成本才匹配过来，如果订单状态是已关闭的成本就直接空白，但是代码好像不成功
 回到顶部
总数 12 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.04321 秒, 4 次数据查询