导入EXCEL数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入EXCEL数据

共有2336人关注过本帖树形打印复制链接主题：导入EXCEL数据

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/19 16:12:00 [显示全部帖子]

你说的数据不全，指什么？

你根据交易日期进行查询比较的，同一个交易日期，只会导入一行记录的。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/19 18:49:00 [显示全部帖子]

这样写查询条件

Dim bh0 As String = sheet(n,0).Text
Dim bh1 As String = sheet(n,1).Text
Dim bh2 As String = sheet(n,2).Text
Dim bh3 As String = sheet(n,3).Text
Dim bh4 As String = sheet(n,4).Text
Dim bh5 As String = sheet(n,5).Text
Dim bh6 As String = sheet(n,6).Text
Dim filter As String = "1=1"
If bh0 > "" Then
    filter &= " and 交易日期 = '" & bh0 & "'"
Else
    filter &= " And 交易日期 Is null"
End If
If bh1 > "" Then
    filter &= " and 交易网点 = '" & bh1 & "'”
else
    filter &= " and 交易网点 is null”
end if
Dim dr As DataRow = DataTables("cw_yhlsb").Find(filter)

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/2 15:20:00 [显示全部帖子]

试试

For n As Integer = 6 To Sheet.Rows.Count -2

Dim bh0 As String = sheet(n,0).Text

Dim bh1 As String = sheet(n,1).Text

Dim filter As String = "1=1"

If bh0 > "" Then

filter &= " and 交易时间 = #" & bh0 & "#"

Else

filter &= " And 交易时间 Is null"

End If

If bh1 > "" Then

filter &= " and 交易日期 = #" & bh1 & "#"

Else

filter &= " And 交易日期 Is null"

End If

msgbox(filter)

Dim dr As DataRow = DataTables("cw_lsbjh").Find(filter)

If dr Is Nothing Then '如果不存在同编号的订单

dr = DataTables("cw_lsbjh").AddNew()

End If

For m As Integer = 0 To nms.Length - 1

dr(nms(m)) = Sheet(n,m).Value

Tables("cw_lsbjh").ResumeRedraw()

CurrentTable.Save

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/2 17:45:00 [显示全部帖子]

上传具体实例测试。

下一主题 >> << 上一主题

主题：导入EXCEL数据