标题：比对问题

1楼

nxqtxwz 发表于：2023/11/13 10:36:00

请问如何将数据库表中选定的记录与指定的Excel文件中的记录进行比对呢？

2楼

有点蓝 发表于：2023/11/13 10:39:00

先遍历数据库表中选定的记录，再遍历Excel文件中的记录，逐一比较

3楼

nxqtxwz 发表于：2023/11/13 11:11:00

搞不懂怎样比较。比较完了怎样显示比较的结果呢。比如以身份证号比对，比对完后把数据表中的信息写到EXcEL中

4楼

有点蓝 发表于：2023/11/13 11:26:00

for each r as row in tables(xxx).rows

For n As Integer = 0 To Sheet.Rows.Count -1

if r("身份证") = Sheet(n,0).Text then 假设execl身份证放在第一列

Sheet(n,1).Value = r("第一列")

Sheet(n,2).Value = r("第2列")

5楼

nxqtxwz 发表于：2023/11/13 11:35:00

老师您好，比对后有可能出现两种情况:

一是数据表中有，EXCEL中没有，这种情况要把表中的记录直接写到EXCEL中；

二是数据表中没有，但EXCEL中有，这种情况要有个提示，怎么弄呢。

6楼

有点蓝 发表于：2023/11/13 11:48:00

1、

for each r as row in tables(xxx).rows

dim b as boolean

For n As Integer = 0 To Sheet.Rows.Count -1

if r("身份证") = Sheet(n,0).Text then 假设execl身份证放在第一列

b=true

Sheet(n,1).Value = r("第一列")

Sheet(n,2).Value = r("第2列")

end if

if b=false then

end if

2、需要另外处理，再遍历execl处理

For n As Integer = 0 To Sheet.Rows.Count -1

dim dr as datarow = datatables("xx").find("身份证='" & Sheet(n,0).Text & "'")

if dr isnot nothing then

msgbox(Sheet(n,0).Text & "没找到")

……

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