主题：窗口动态生成表的行怎样定义

缺号一般有2种解决方法，一是直接作废，就像fa piao一样，这个号直接作废不再使用，作废的数据仍然保留，而不是删除掉。另外一种方法是建一个废号表，删除数据的时候，把废单号存入废号表，需要新单号的时候，先查询废号表获取最小的单号，然后从废号表删除这个启用的单号，如果没有再重新生成最新的单号。

这个要看这些凭证是不是一定要按照绝对的顺序生成编号。比如有1~10个编号的凭证，假设1号作废，那么2~10还是依次2改为1，3改为2，这样全部改一遍？还是说新增的配置直接使用1号这个编号？

如果不能重排，直接把旧单号给新的单据使用即可

Select Case e.StripItem.Name

    Case "保存" '保存代码

        If e.Form.Controls("rq").text = "" Then'当日期为空取消保存操作

            messagebox.show("请选择日期")

            Return

        ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then '当窗口中的行为空取消保存操作

            Return

        Else

msgbox(1)

            For Each tr As DataRow In DataTables("月租收费_Table1").Select("[车牌号码] is not null")

                Dim dr As DataRow = DataTables("缴费情况").SQLFind("[单号] = '" & e.Form.Controls("dh").text & "' And [车牌号码] = '" & tr("车牌号码") & "' And ([已审核] = False Or [已审核] Is null)") '将窗口上的数据刷新替换保存到缴费情况表上,

msgbox(dr IsNot Nothing)

                If dr IsNot Nothing Then

msgbox(e.Form.Controls("rq").text)

                    dr("日期") = e.Form.Controls("rq").text

                    dr("单号") = e.Form.Controls("dh").text

……

……