我在datatablechanged事件中写了如下代码来更新相关表的付款单号列,请问用完全的SQL语句怎样实现呢?
If e.DataCol.name = "申请单号" OrElse e.DataCol.name = "凭证编号" Then '更新入库单的付款单号
e.DataRow.Save()
Dim drs As List (of DataRow) = DataTables("入库单").SQLSelect("申请单号 = '" & e.DataRow("申请单号") & "'")
For Each dr As DataRow In drs
Dim strs As List (of String) = e.DataTable.SQLGetValues("付款单号","申请单号 = '" & e.DataRow("申请单号") & "'")
dr.Lines("付款单号") = strs
Next
DataTables("入库单").SQLUpdate(drs)
End If