老师,一个表事件里面这样的代码有几段,数据添加到不同的表,有点影响速度,这种怎么解决呢?
If e.DataCol.Name = "审批状态"
If e.DataRow("审批状态") = "已审批完成" Then
Dim str1()As String = {"合同编码","合同金额","合同工期","项目经理","项目总工"}
Dim str2()As String = {"合同编码","项目编码","所属机构","项目类别","招标方式","项目名称","建设单位","合同金额","合同工期","项目经理","项目总工"}
Dim dr As DataRow = DataTables("合同归档").sqlFind("项目编码 = '" & e.DataRow("项目编码") & "'") '找出合同编码相同的项目
If dr IsNot Nothing Then '如果找到的话
For Each nm As String In str1
e.DataRow(nm)= dr(nm)
Next
dr.save
Else
Dim dw As DataRow = DataTables("合同归档").AddNew
For Each nm As String In str2
e.DataRow(nm)= dr(nm)
Next
dr.save
End If
End If
End If