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

原来设计一个窗口控件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中直接实现自动编号，因为涉及到手动更改编号，需要直接在控件中生成自动编号

 

手动更改编号会不会破坏原来的自动编号的生成规则，如果没有那就直接在textbox中直接手动更改编号就行了，和原来的自动编号没有冲突的。不需要更改

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

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

没看懂。

 

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

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

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

如果是绑定的，直接在datacolchanged事件就是1楼的代码就行了。datacolchanged事件处理完后，文本框就会有值的。直接使用datacolchanged事件会有什么问题？

关键是不能绑定，求代码

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

代码是日期控件valuechanged事件里的额，选择日期后才会生成。新增按钮时日期还没有值，如何生成编号？