以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提取不重复内容填入其他表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145014)

--  作者:wumingrong1
--  发布时间:2020/1/6 10:37:00
--  [求助]提取不重复内容填入其他表

表A:             提取表A中的【项目名称】中不重复内容填到表B中      表B:

项目名称                                                                               项目名称        

A                                                                                         A

V                                                                                         V

B                                                                                         B

A                                                                                         C

B                                                                                         D

C                                                                                        

D

V

 

命令该怎么写?


--  作者:有点蓝
--  发布时间:2020/1/6 10:45:00
--  
使用GetValues获取不重复值,然后遍历赋值到其他表即可:http://www.foxtable.com/webhelp/topics/2747.htm
--  作者:wumingrong1
--  发布时间:2020/1/6 11:22:00
--  

这个命令没有去除重复内容、该怎么修改才能实现提取不重复内容

 

Dim Cols1() As String = {"装维人员姓名"}
Dim Cols2() As String = {"装维人员姓名"}

For Each dr1 As DataRow In DataTables("投诉工单清单表").Select("")  
    Dim dr2 As DataRow = DataTables("投诉统计表").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

[此贴子已经被作者于2020/1/6 11:22:43编辑过]

--  作者:有点蓝
--  发布时间:2020/1/6 11:29:00
--  
For Each s as string In DataTables("投诉工单清单表").GetValues("装维人员姓名")  
    Dim dr2 As DataRow = DataTables("投诉统计表").AddNew()
    dr2("装维人员姓名") = s
Next
--  作者:wumingrong1
--  发布时间:2020/1/6 15:19:00
--  

有一个字段【外线完成时间】;我想加载该字段时间为今天的数据、以下命令加载不出来。

 

 

Dim cmd As New SQLCommand
Dim dt1 As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt1 = cmd.ExecuteScalar()

 

DataTables("投诉工单清单表").LoadFIlter =  "外线完成时间 >= \'"& Format(dt1,"yyyy-MM-dd 00:00:00") &"\'  And  外线完成时间 <= \'"& Format(dt1,"yyyy-MM-dd 23:59:59") &"\'   "
DataTables("投诉工单清单表").Load


--  作者:有点蓝
--  发布时间:2020/1/6 15:29:00
--  
代码没有问题

msgbox("外线完成时间 >= \'"& Format(dt1,"yyyy-MM-dd 00:00:00") &"\'  And  外线完成时间 <= \'"& Format(dt1,"yyyy-MM-dd 23:59:59") &"\'   ")

确定有符合这个条件的数据?
[此贴子已经被作者于2020/1/6 15:28:55编辑过]

--  作者:wumingrong1
--  发布时间:2020/1/6 16:07:00
--  

确定是有的符合条件的内容

 


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

--  作者:有点蓝
--  发布时间:2020/1/6 16:22:00
--  
外线完成时间是日期列还是字符列?

msgbox显示什么内容?

--  作者:wumingrong1
--  发布时间:2020/1/6 16:27:00
--  

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

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

--  作者:有点蓝
--  发布时间:2020/1/6 16:40:00
--  
不应该有问题呀

这样试试
DataTables("投诉工单清单表").LoadFIlter =  "外线完成时间 >= \'" & dt1.date & "\'  And  外线完成时间 < \'" & dt1.date.adddays(1) &"\'   "