关于快速保存代码的疑问 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

论坛找到这么一个快速保存至mssql的代码

Dim tran As System.Data.SqlClient.SqlTransaction

try

Dim conn As new System.Data.SqlClient.SqlConnection("server=voyo;uid=sa;pwd=hailun.;database=Test")

conn.Open() '打开链接

tran = conn.BeginTransaction()

Dim mapping1 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第一列", "第一列")

Dim mapping2 As new System.Data.SqlClient.SqlBulkCopyColumnMapping("第二列", "第二列")

Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)

Copy.ColumnMappings.Add(mapping1)

Copy.ColumnMappings.Add(mapping2)

copy.Destinati '指定服务器上目标表的名称

copy.BatchSize = 1000

copy.WriteToServer(DataTables("表D").basetable) '你的datatable名字,执行把DataTable中的数据写入DB

tran.Commit() '提交事务

msgbox("OK")

catch ex As exception

msgbox(ex.message)

tran.Rollback() '返回False 执行失败!

End try

我的疑问是：若数据表的字段很多，几十个的话，那红色部分不得写几十行啊

有啥方法能简化不，最好是能整合成一个函数，往里面传参，就方便了。

以下是引用有点蓝在2022/3/14 9:44:00的发言：
使用数组遍历呀，比如这种：http://www.foxtable.com/webhelp/topics/1533.htm

我知道是用循环，只是不知这个循环应该怎么写，要把哪些语句包在循环体内

麻烦蓝版打个样

所以提问请尽量把问题一次描述清楚

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}

Dim copy As new System.Data.SqlClient.SqlBulkCopy(conn, System.Data.SqlClient.SqlBulkCopyOptions.Default, tran)

for i as integer =0 to cols.length - 1

Copy.ColumnMappings.Add(new System.Data.SqlClient.SqlBulkCopyColumnMapping(Cols1(i),Cols2(i)))

主题：关于快速保存代码的疑问