主题：项目自动关闭

在表里填写数据，项目就自动关闭了， 怎么回事呢

产品表里只有这段代码

'----------产品ID自动编号-----------------------------
Dim max As String
max = e.DataTable.Compute("max(产品ID)")
If max > "" Then
    Dim idx As Integer
    idx = CInt(max.SubString(3,6)) + 1
    e.DataRow("产品ID") = "SMP" & Format(idx,"000000")
Else
    e.DataRow("产品ID") = "SMP" & "000001"
End If
'----------产品ID自动编号-----------------------------

啊， 写错地方了， 老师，你怎么知道我写在DataCloChanged事件里了

谢谢老师