e.Form.controls("空").performclick()
If str<>Nothing
    MessageBox.Show(str & "为空,不能增加!")
    Return
End If
Dim ny As String=vars("记账日期").year & cstr(vars("记账日期").month).padleft(2,"0")

sjkdt.save()
sjkdt.loadfilter="[_identify] is null"
sjkdt.load()
\'求最大编号
cmd.connectionname=source
cmd.CommandText = "Select Max(序号) From {" & sjkzbdt.name & "} Where " & _filter & " and 单据类型=\'" & vars("单据类型") & "\' and 记账年月=\'" & ny & "\'"
max = cmd.ExecuteScalar()
MessageBox.Show(sjkzbt.name)
_r=sjkzbt.addnew()
MessageBox.Show(2)
sjkzbdt.save()
sjkzbt.Position = sjkzbt.Rows.Count - 1
If max > "" Then \'如果存在最大编号
    _r("序号") = CInt(max) + 1 \'获得最大编号的后三位顺序号,并加1
Else
    _r("序号") = 00001 \'否则顺序号等于1
End If
_r("单据编号") = vars("单据类型") & ny & "-" & Format(cint(_r("序号")),"00000")
_r=wft.addnew()
_r("单据编号") = sjkzbt.current("单据编号")
sjkzbt.current.save()
_r.save()
\'加载数据
sjkdt.loadfilter="" & _filter & " and 单据编号=\'" & _r("单据编号") & "\'"
sjkdt.load()

贴出代码。

我未做任何调整，现在没有这个提示了。