forms/ledgers/frmLedgerSumAccount.vb

（开头部分） 9KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Public Class frmLedgerSumAccount

    Private m_periodIndex As Integer '当前选择的会计期间的索引
    Private m_periodList As List(Of String) '当前账套的科目汇总相关的会计期间集合
    Private m_acctsumList As List(Of ClsTAccountSum) '选择的期间的科目汇总数据集合

    Private Sub frmLedgerSumAccount_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '初始化列表头部
        InitialListViewHeader()

        '加载科目汇总表月份数据
        LoadWorkPeriodData()

        If m_periodList IsNot Nothing Then
            Me.cmbWorkPeriod.DataSource = m_periodList
            'Me.cmbWorkPeriod.SelectedIndex = -1
        Else
            Me.cmbWorkPeriod.SelectedIndex = -1
        End If

    End Sub

    ''' <summary>
    ''' 从数据库中加载科目汇总相关的会计期间
    ''' </summary>
    Private Sub LoadWorkPeriodData()
        Dim tmpASDb As ClsTAccountSumDbAccess = New ClsTAccountSumDbAccess(sysUserDataConnectionString)
        Dim tmpYear As String = sysCurrentLedgerSetting.LedgerWorkYear.Substring(0, 4)
        m_periodList = tmpASDb.GetAllPeriodByYear(tmpYear)

    End Sub

    Private Sub InitialListViewHeader()

        '初始化列表标题
        Dim header1 As ColumnHeader = New ColumnHeader()
        header1.Text = "科目编码"
        header1.Width = 80
        header1.TextAlign = HorizontalAlignment.Center
        header1.Name = "hAcctCode"


        Dim header2 As ColumnHeader = New ColumnHeader()
        With header2
            .Text = "科目名称"
            .Width = 120
            .TextAlign = HorizontalAlignment.Left
            .Name = "hAcctName"

        End With

        Dim header3 As ColumnHeader = New ColumnHeader()
        With header3
            .Text = "借方金额"
            .Width = 140
            .TextAlign = HorizontalAlignment.Right
            .Name = "hDebitSum"
            '.AutoResize = True
        End With
后面还有 204 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。