Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:数据查找

1楼
985123414 发表于:2023/11/23 11:57:00
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.xlsx

老师您好,我想在foxtable中按身份证号筛选出excel中的数据应该怎么实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

2楼
有点蓝 发表于:2023/11/23 12:04:00
筛选后的结果放到哪里?
3楼
985123414 发表于:2023/11/23 16:40:00
想要直接显示在foxtable表A中
[此贴子已经被作者于2023/11/23 16:40:43编辑过]
4楼
有点蓝 发表于:2023/11/23 16:48:00
表A就2个列,不已经有数据了吗?如果是要从execl合并数据到表A,参考:http://www.foxtable.com/webhelp/topics/2334.htm
5楼
985123414 发表于:2023/11/23 16:52:00
老师现在表A中是全部数据,excel中是部分数据,如果想要把excel中的数据在表A中筛选出来,有没有办法呀?
6楼
有点蓝 发表于:2023/11/23 16:55:00
表A增加一个逻辑列,使用4楼的方法,使用find查询如果有,就勾选上
7楼
有点蓝 发表于:2023/11/23 16:58:00
大概这样

Dim 
Book As New XLS.Book("c:\test\123.xlsx")
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)

For
 n As Integer = 1 To Sheet.Rows.Count -1
    
Dim bh As String = sheet(n,0).Text
    
Dim dr As DataRow = DataTables("表A").Find("身份证 = '" & bh & "'")
    If 
dr Isnot Nothing Then '如果不存在同编号的订单
        
dr("逻辑列") = true
    End If

Next

共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02686 s, 3 queries.