主题：求纠正代码：当计划书编号为1、2时候可以正常运行 当增加到3时候，项目自动退出，求解！

故障说明：

销售和成本计划

打开这个菜单 弹出窗体  按一键生成按钮

当计划书编号为1、2时候可以正常运行 当增加到3时候，项目自动退出，求解！

示意图：

 
此主题相关图片如下：qq浏览器截屏未命名.png

一键生成代码如下：【对应销售和成本计划表，该表中还有对应的事件代码】

Dim a As Row=Tables("创业计划书").current
Dim dk As WinForm.TextBox = e.Form.Controls("TextBox1")
If dk.text<>"" Then
    Dim vals() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"}
    For i As Integer =0 To vals.Length - 1
        Dim ab As Row=Tables("创业计划书.销售和成本计划表").AddNew()
        ab("月份") = vals(i)
        ab("贷款")=dk.text
    Next
Else
    MessageBox.Show("请先输入贷款金额!")
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:创业计划书.foxdb