主题：[求助] 合并数据公式

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog 

dlg.Filter= "Excel文件|*.xls" '设置筛选器 

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 

Dim nms() As String = {"登录名","端口限制信息"}

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

    Dim r As Row = Tables("OLT设备用户端口数据表").AddNew()

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

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

    Next

Next

End If