Dim r As DataRow = DataTables("财务数据源").SQLFind("[字号] = '" & (e.Form.Controls("TextBox2").text).SubString(0,2) & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")
If r Is Nothing Then
r = DataTables("财务数据源").addnew
End If
r("日期") = e.Form.Controls("rq").text
r("凭证号") = e.Form.Controls("dh").text
r("借或贷") = "借"
r("安日期生成单号辅助列") = e.Form.Controls("dh1").text
r("附件张数") = e.Form.Controls("TextBox1").text
r("录入员") = e.Form.Controls("lry").text
r("字号") = (e.Form.Controls("TextBox2").text).SubString(0,2)
r("操作人姓名") = User.Name & " " & Date.Now
r("会计科目") = e.Form.Controls("ComboBox3").Value
r("会计科目辅助列") = (e.Form.Controls("ComboBox3").Value).Split(" ")(1)
If e.Form.Controls("ComboBox2").text = e.form.controls("combobox2").items(1) And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(0) _
OrElse e.Form.Controls("ComboBox2").text = e.form.controls("combobox2").items(1) And e.Form.Controls("ComboBox1").text = e.form.controls("combobox1").items(1) Then
r("外币借方金额") = r("外币金额")
End If
Dim Parts0() As String = r("会计科目").Split("-")
If Parts0.length > 0 Then
r("借方总账科目") = Parts0(0)
r("一级科目") = Parts0(0)
If Parts0.length > 1 Then
r("二级科目") = Parts0(1)
If Parts0.length > 2 Then
r("二级科目") = Parts0(2)
End If
End If
End If
r("借方金额") = Tables("收款凭证_Table1").Compute("Sum(金额)")
r("金额") = Tables("收款凭证_Table1").Compute("Sum(金额)")
r.save
Dim drs As List(Of DataRow) = DataTables("财务数据源").SQLSelect("[字号] = '" & (e.Form.Controls("TextBox2").text).SubString(0,2) & "' And [日期] = #" & e.Form.Controls("rq").Value & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")
Dim zheyao As String = ""
For c As Integer = 0 To drs.count - 1
zheyao = zheyao & drs(c)("摘要") & ","
Next
r("摘要") = zheyao.TrimEnd(",")
r.save
DataTables("财务数据源").LoadOrder = "字号,日期,凭证号,[借或贷] DESC"
DataTables("财务数据源").load
DataTables("财务数据源").DataCols("日期").RaiseDataColChanged()
DataTables("财务数据源").DataCols("凭证号").RaiseDataColChanged()
For i As Integer = DataTables("财务数据源").DataRows.count - 1 To 0 Step -1
Dim tr As DataRow = DataTables("财务数据源").DataRows(i)
If tr.Isnull("日期") Then
tr.delete
End If
Next
加好友 
发短信
Post By：2021/6/12 11:20:00 [显示全部帖子]
