主题：[求助]加载

Dim TblName As String = Args(1)            '数据来源表
Dim Columns As String = Args(2)            '要构建Treeview的字段
If Tables(TblName).Rows.Count = 0 Then Return Nothing
TvwCtl.Form.StopRedraw
TvwCtl.BuildTree(Tables(TblName).DataTable,Columns)
Dim ArrColName() As String = Columns.Split("|")
For i As Integer = 0 To Ubound(ArrColName)
    If Tables(TblName).DataTable.DataCols(ArrColName(i)).IsDate Then
        For Each Nd As WinForm.TreeNode In TvwCtl.AllNodes
            Dim idx As Integer = nd.Text.IndexOf(" ")
            If idx >= 0 AndAlso Nd.Level = i Then Nd.Text = Nd.Text.SubString(0,Nd.Text.IndexOf(" "))
        Next
    End If
Next
TvwCtl.Nodes.Insert("显示所有行",0)
TvwCtl.Form.ResumeRedraw

请上传实例测试

ElseIf e.DataRow("收/支") = "不计收支" Then
    Dim nma() As String = {"入账编号","交易时间","交易分类","交易对方","对方账号","商品说明","收/支","金额","收/付款方式","交易状态","交易订单","商家订单号","时间_年","时间_月","时间_季","时间_日","备注" } 'A表数据来源列
    Dim nmb() As String = {"入账编号","交易时间","交易分类","交易对方","对方账号","商品说明","收/支","金额","收/付款方式","交易状态","交易订单","商家订单号","时间_年","时间_月","时间_季","时间_日","备注" } 'B表数据接收列
    e.DataRow.save
    Dim dr3 As DataRow = DataTables("不计收支表").Find("入账编号  = '" & e.DataRow("入账编号") & "'")             '找到指定返回的行
    If dr3 Is Nothing Then
        dr3  = DataTables("不计收支表").AddNew
    End If
    For i As Integer = 0 To nma.Length - 1
        dr3(nmb(i)) = e.DataRow(nma(i))
    Next
  
    dr3("来源") = "手机账号3105"

不计收支表有重复的入账编号？

    Case "交易时间","编号"
        If e.DataRow.IsNull("交易时间") OrElse e.DataRow.IsNull("编号") Then
            e.DataRow("入账编号") = Nothing
        Else
            Dim d As Date = e.DataRow("交易时间")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = "ZF" & Format(d,"yyMM") & "" '生成编号的前缀
            If e.DataRow("入账编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "交易时间 >= #" & fd & "# And 交易时间 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(入账编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.length,4)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("入账编号") = bh & Format(idx,"0000")
            End If
        End If
End Select

自己多测试，找出出错的规律，什么样的情况下会有遗漏