后台数据没有办法定位。只能定位已经加载的数据
Dim r As DataRow = DataTables("财务数据源").SQLFind("[字号] = '" & (e.Form.Controls("TextBox2").text).SubString(0,2) & "' And [凭证号] = '" & e.Form.Controls("dh").text & "' And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")
If r IsNot Nothing Then
DataTables("财务数据源").SQLDeleteFor("[字号] = '" & (e.Form.Controls("TextBox2").text).SubString(0,2) & "' And [凭证号] = '" & e.Form.Controls("dh").text & "' And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").Value & "' And [借或贷] = '借'")
Dim r1 As DataRow = DataTables("财务数据源").SQLFind("[字号] = '" & (e.Form.Controls("TextBox2").text).SubString(0,2) & "' And [凭证号] = '" & e.Form.Controls("dh").text & "' And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")
If r1 IsNot Nothing Then
r =dataTables("财务数据源").AddNew
r("_sortkey") = r1("_sortkey") - 0.0001
End If
Else
r = dataTables("财务数据源").AddNew
End If
[此贴子已经被作者于2021/8/10 15:09:25编辑过]