Dim dr As Row = Tables("注册表.会计期间表").Current
Dim n As Integer=dr("会计年度")
Dim m As Integer = dr("会计月份")
Dim r As Integer = Date.DaysInMonth(n,m)
Dim d As Date = New Date(n,m,r)
e.Form.Controls("DateTimePicker1").Value = d
Dim sbh As String = Tables("注册表").Current("纳税识别号")
Dim yjkmdms As New List(Of DataRow)
yjkmdms=DataTables("会计科目表").Select("是否一级科目='是' And 纳税识别号='" & sbh & "'")
Dim kmdm As String
Dim kmmc As String
For Each yjkmdm As DataRow In yjkmdms
kmdm=yjkmdm("科目代码")
kmmc=yjkmdm("科目名称")
Dim tr As DataRow =DataTables("一级科目余额表").Find("年=" & n & " And 月=" & m & " And 科目代码='" & kmdm & "'And 纳税识别号='" & sbh & "'")
If tr Is Nothing Then
tr=DataTables("一级科目余额表").AddNew()
tr("年")=n
tr("月")=m
tr("科目代码")=kmdm
tr("科目名称")=kmmc
tr("借方金额")=DataTables("凭证明细").Compute("sum(借方金额)","年=" & n & " And 年_月=" & m & " And 会计科目代码 Like '" & kmdm & "%' And 纳税识别号='" & sbh & "'")
tr("贷方金额")=DataTables("凭证明细").Compute("sum(贷方金额)","年=" & n & " And 年_月=" & m & " And 会计科目代码 Like '" & kmdm & "%' And 纳税识别号='" & sbh & "'")
tr.Save
tr.Locked=True
With Tables("一级科目余额表")
Dim qcwz As Integer
qcwz=.FindRow(tr)
If qcwz>=0 Then
.Position=qcwz
Dim count As Integer
Dim dyns As New List(Of DataRow)
Dim xyns As New List(Of DataRow)
dyns=DataTables("一级科目余额表").Select("年>" & n & " ")
xyns=DataTables("一级科目余额表").Select("年=" & n & " And 月>" & m & " ")
If m=12 Then
count=dyns.Count
Else
count=dyns.Count+xyns.Count
End If
.Current.Move(qcwz-count)
'.Current.Save
'.Current.Locked=True
'.Current.DataRow.Save
End If
End With
Else
tr("借方金额")=DataTables("凭证明细").Compute("sum(借方金额)","年=" & n & " And 年_月=" & m & " And 会计科目代码 Like '" & kmdm & "%' And 纳税识别号='" & sbh & "'")
tr("贷方金额")=DataTables("凭证明细").Compute("sum(贷方金额)","年=" & n & " And 年_月=" & m & " And 会计科目代码 Like '" & kmdm & "%' And 纳税识别号='" & sbh & "'")
End If
Next