老师,以下代码在表属性中,如何用黄色代码来取代,因为表SDBC_Sq在服务器上,谢谢。
If e.DataCol.Name = "BatchNo" Then
Dim sum As Double= 0
For Each dr1 As DataRow In DataTables("SDBC_Sq").Se lect("BatchNo='" & e.NewValue & "'")
sum += dr1("IncomingQty")
Next
e.DataRow("QCQty") = sum
End If
Dim cmd As new SQLCommand
cmd.Con necti
Dim dt As DataTable