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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导入excel或者txt

共有2622人关注过本帖树形打印复制链接主题：[求助]导入excel或者txt

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/8 17:12:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文件|*.xls;*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim info As new fileinfo(dlg.FileName)
    msgbox(info.Extension)
    If info.Extension = ".txt" Then
        msgbox("文本代码")
    ElseIf info.Extension = ".xls" Then
        msgbox("excel代码")
    End If
End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 9:21:00 [显示全部帖子]

那你可以用代码合并。

http://www.foxtable.com/help/topics/2629.htm

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 10:50:00 [显示全部帖子]

那行没有保存肯定不会SQLCompute

你可以在datacolchanged事件写 e.DataRow.Save

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 11:01:00 [显示全部帖子]

测试了一下，merger导入的时候，应该是没有保存的。你要导入结束以后重置列才行。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 11:17:00 [显示全部帖子]

回复12楼，类似那种语句，如果要缩小范围，你可以针对新增的行触发，如。

For Each dr As DataRow In DataTables("扫描配货明细").datarows
    If dr.RowState = DataRowState.Added Then
        DataTables("扫描配货明细").DataCols("SN").RaiseDataColChanged(dr)
    End If
Next