主题：[求助]窗口中自动编号问题

原来设计一个窗口控件textbox绑定了表A中“资金申请编号”，实现自动编号：

If e.DataCol.Name = "业务日期" Then '预算单编号
    If e.DataRow.IsNull("业务日期") Then
        e.DataRow("资金申请编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("业务日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("资金申请编号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(资金申请编号)","业务日期 = #" & e.DataRow("业务日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("资金申请编号") ="Z" & bh & Format(idx,"000")
        End If
    End If
End If

求如何在窗口控件textbox中直接实现自动编号，因为涉及到手动更改编号，需要直接在控件中生成自动编号

不是的，因为存在表C，在增加A表同时，会增加C表，如果号编码不同在C中新增一列，如果编码相同则在C中相同编码列增加金额

所以不能等编码编号后手动改，只能在Textbox中直接改变后保存，才能实现表C中不新增加列

 窗口控件textbox“预算单编号”希望根据业务日期形成自动编号

此主题相关图片如下：微信图片_20200203160312.png

编号规则：根据业务日期自动编号如业务日期为今天：20200203001，20200203002

点击新增按钮时，编号没有反应，为空白

按钮“新增”Click事件代码：

e.form.controls("业务日期").value = Date.today

但是，自动编码的textbox的值没有变化