主题：求助：文号自动增加代码

在你原代码后面加上这段试一试：
Dim dr As DataRow
dr = DataTables("业务").Find("文号 like '" & Forms("业务一").Controls("TextBox2").text & "*'","文号 Desc")
Forms("业务一").Controls("TextBox2").value = Forms("业务一").Controls("TextBox2").text & left(dr("文号").split("】")(1),1)+1 & "号"

说明：上面代码当文号小于10适用（因为文本型无法正确排序）。 最好将文号的数字部分单独增设一列（数字型）存放，需要时合并即可。

5楼的代码不要了，在业务表里增加一列：号数 （数字型），并删除所有测试的行 。 SelectedIndexChanged 事件中原代码后面加上下面的代码：：：
Tables("业务").current("号数") = Nothing
Dim dr As DataRow
dr = DataTables("业务").Find("文号 like '" & Forms("业务一").Controls("TextBox2").text & "*'","号数 Desc")
Forms("业务一").Controls("TextBox2").value = Forms("业务一").Controls("TextBox2").text & dr("号数")+1 & "号"
Tables("业务").current("文号") = Forms("业务一").Controls("TextBox2").value
Tables("业务").current("号数") = dr("号数")+1