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

需求：将外部数据表MS_Client的记录逐行都写入“客户资料”表，弹出来“索引超出了数组界限”提示，且“客户资料”表只新增第一行第一列的数据

此主题相关图片如下：未命名11.png

Dim Result As DialogResult

Result = MessageBox.Show("对接资料会覆盖原有数据,确定要对接客户资料吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

If Tables("MS_Client").Rows IsNot Nothing Then

Tables("客户资料").stopredraw

Dim nma() As String = {"client_no","name","sala_addre","rea_man","rea_tel"} 'A表数据来源列

Dim nmb() As String = {"客户编号","公司名称","地址","联系人","联系方式"} 'B表数据接收列

For n As Integer = 1 To Tables("MS_Client").Rows.count - 1

Dim r As Row = Tables("客户资料").addnew()

r(nmb(n)) = Tables("MS_Client").current(nma(n))

Tables("客户资料").ResumeRedraw()

End If

[此贴子已经被作者于2018/3/2 10:40:24编辑过]

Dim Result = MessageBox.Show("对接资料会覆盖原有数据,确定要对接客户资料吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then

    Tables("客户资料").stopredraw
    Dim nma() As String = {"client_no","name","sala_addre","rea_man","rea_tel"} 'A表数据来源列
    Dim nmb() As String = {"客户编号","公司名称","地址","联系人","联系方式"} 'B表数据接收列
    For Each dr As Row In Tables("MS_Client").Rows
        Dim r As Row = Tables("客户资料").addnew()
        For n As Integer = 0 To nmb.length -1
            r(nmb(n)) = dr(nma(n))
        Next
    Next
    Tables("客户资料").ResumeRedraw()
End If

好了，非常感谢

主题：将外部数据表记录逐行写入另一数据表