……
For Each dc As DataCol In tb1.datacols
If dc.name = "姓名" Or dc.name = "手机号码" Or dc.name = "提交编号" Or dc.name = "短信字数" Or dc.name = "计费条数" Then
Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping(dc.name, dc.name)
Copy.ColumnMappings.Add(mapping1)
End If
Next
Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("姓名", "客户名称")
Copy.ColumnMappings.Add(mapping1)
copy.DestinationTableName = tb2 '指定服务器上目标表的名称
……