下面这样的代码放在函数中异步调用,会有问题吗?
Dim Tab As DataTable = Args(0)'明细表
Dim DJBH As String = Args(1)'单据编号
Dim Colname As String = Args(2)'列名称
Dim DataTab As DataTable = DataTables("出入库明细")
Dim JLh As DataRow = DataTables("经营记录").SQLFind("单据编号 = '" & DJBH & "'")
Dim mxs As New List(Of DataRow)
mxs = Tab.SQLSelect("单据编号 = '" & DJBH & "'")
For Each mx As DataRow In mxs
Dim CRnh As DataRow = DataTab.SQLAddNew()
CRnh("单据编号") = DJBH
CRnh("日期") = JLh("日期")
CRnh("仓库") = JLh("仓库")
CRnh("产品ID") = mx("商品ID")
CRnh(Colname) = mx("数量")
CRnh("入库日期") = Date.Now
CRnh.Save()
Next