函数代码有问题,不过实在看不懂您的逻辑
如果按照12楼的逻辑,这样就可以了。
Dim sdt As String = Args(0)
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT * From {表C} where 合成信息 = '" & sdt & "'"
dt = cmd.ExecuteReader(True)
cmd.CommandText = "SELECT * From {APQP基本资料项目下拉} "
Dim dt2 As DataTable = cmd.ExecuteReader()
Dim fr As DataRow
For Each dr As DataRow In dt2.DataRows
fr = dt.Find("合成信息='" & sdt & "' And 影响因素 = '" & dr("项目") & "'")
If fr Is Nothing Then
fr = dt.AddNew
fr("合成信息") = sdt
fr("影响因素") = dr("项目")
End If
Next
dt.save
不过要注意的是,内部表不支持在异步函数中插入数据,必须使用外部数据源测试