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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：导入导出按钮问题？

共有4548人关注过本帖树形打印复制链接主题：求助：导入导出按钮问题？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 10:50:00 [显示全部帖子]

你要弄一个唯一标识列,编号或者什么的.

然后参考帮助 http://www.foxtable.com/help/topics/2334.htm

利用FIND找到同样的行,就进行覆盖填充

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 10:57:00 [显示全部帖子]

可以用遍历所有列的方式.

你导出的表格和你原表是一致的,直接用

cols(0).name 这样的坐标即可.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 11:03:00 [显示全部帖子]

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("订单").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("订单").Find("编号 = '" & bh & "'")
    If dr Is Nothing Then '如果不存在同编号的订单
        dr = DataTables("订单").AddNew()
    End If
    For m As Integer = 0 To Tables("订单").cols.count- 1
        dr(Tables("订单").cols(m).name) = Sheet(n,m).Value
    Next
Next
Tables("订单").ResumeRedraw()

搞不定就上例子吧

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 11:20:00 [显示全部帖子]

例子指可以运行展示问题的项目文件

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 11:20:00 [显示全部帖子]

6楼不是给你展示了,不用列出列名么

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 14:33:00 [显示全部帖子]

说明你某一列是逻辑列. 1赋值不上去

假如你第五列是逻辑列

For m As Integer = 0 To Tables("成绩录入表").cols.count- 1

if m=4 then

dr(Tables("成绩录入表").cols(m).name) = IIF(Sheet(n,m).Value=1,true,false)

else
dr(Tables("成绩录入表").cols(m).name) = Sheet(n,m).Value

end if
Next

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/14 15:36:00 [显示全部帖子]

同理的,你某列是数值列,控制无法赋值给数值. 采用同样的方式判断就好了

If m=21 Then
            dr(Tables("成绩录入表").cols(m).name) = IIF(Sheet(n,m).Value="",nothing,Sheet(n,m).Value)
        Else
            dr(Tables("成绩录入表").cols(m).name) = Sheet(n,m).Value

End If

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

主题：求助：导入导出按钮问题？