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

1、表格数据全部加载出来了没有？要全部加载出来，才能排序。

2、排好序以后，你要保存表格数据的。

3、做个例子发上来测试。

就你的例子来说，如何操作后，什么数据位置不正确？截图说明。