以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨多表查询出现次数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169103)

--  作者:ganlan
--  发布时间:2021/6/2 20:29:00
--  跨多表查询出现次数
我想在A表的次数列,写入,以A列为条件,查B/C/D/E表A列是否出现,如果出现1次A表的次数列就写1,出现2次写入2,这个需要怎么写代码呀
--  作者:有点蓝
--  发布时间: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
--  发布时间:2021/6/3 22:09:00
--  

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


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

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

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

--  作者:有点蓝
--  发布时间:2021/6/3 22:31:00
--  
按文本文件的方式导入:http://www.foxtable.com/webhelp/topics/0185.htm
--  作者:ganlan
--  发布时间: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


--  作者:有点蓝
--  发布时间:2021/6/3 23:04:00
--  
如果在菜单里筛选只能这样。

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

Tables("订单").Sort = "A,B,D"

--  作者:ganlan
--  发布时间:2021/6/4 12:36:00
--  

你好,请问一下我表格的数据是有时间的,但是导入后是没有时间的,我看了列的格式是日期时间,我删了重新导还是一样,
图片点击可在新窗口打开查看此主题相关图片如下:360截图20210604123209323.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:360截图20210604123202219.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/6/4 12:36:52编辑过]

--  作者:有点蓝
--  发布时间:2021/6/4 13:35:00
--  
这个要使用vba导:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0
--  作者:ganlan
--  发布时间:2021/6/4 15:11:00
--  
但是很奇怪,我前两天弄的一个表,又可以导入
--  作者:ganlan
--  发布时间: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

这个代码中想加上判断订单状态不是已关闭成本才匹配过来,如果订单状态是已关闭的成本就直接空白,但是代码好像不成功