此主题相关图片如下：qq截图20110528113448.png

应该是这个事件造成的BeforeSaveDataRow

Dim dr As DataRow = e.DataRow
    Dim pf As String
    If dr.RowState <> DataRowState.Added Then \'如果不是新增行
       Return \'那么返回
    ElseIf dr.IsNull("采购日期") Then \'如果没有输入日期
       e.Cancel = True \'取消保存此行
       MessageBox.Show("采购进货表必须输入采购日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
       Return
    Else
       pf = Format(dr("采购日期"),"yyyyMM") \'否则获得编号的前缀,两位年,两位月
    End If
    Dim cmd1 As New SQLCommand
    Dim cmd2 As New SQLCommand
    Dim Key As Integer
    cmd1.C \'设置数据源名称
    cmd2.C \'设置数据源名称
    cmd1.commandText = "Select Count(*) From [采购编号] Where [前缀] = \'" & pf & "\'"
    If cmd1.ExecuteScalar = 0 Then \'如果编号表不存在前缀的行,那么增加一行
       cmd1.commandtext = "Insert Into 采购编号 (前缀, 顺序号) Values(\'" & pf & "\',1)"
       cmd1.ExecuteNonQuery
    End If
    cmd1.commandText = "Select [顺序号] From [采购编号] Where [前缀] = \'" & pf & "\'"
    Do
    Key = cmd1.ExecuteScalar() \'从后台获得顺序号
    cmd2.commandText = "Update [采购编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = \'" & pf & "\'"
    If cmd2.ExecuteNonQuery() > 0 Then \'更新顺序号
        Exit Do \'更新成功则退出循环
    End If
    Loop

     e.DataRow("采购编号") ="CG" & pf & "-" & Format(Key,"0000")

这是什么意思？

又出现这个错误了

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

点击浏览该文件:新建 文本文档.txt

这个是帮助实例里有的，我以前测试过没问题，而且我现在其它表里也有这样的代码，都没有问题

我重新检查了关联设置

采购和采购明细通过采购编号关联

不知为什么出现这样的错误

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=8322&skin=0

狐爸，还是没看懂呀，能不能给个直接的办法，我都整了一天了，都还没有解决这个问题

我没有办法直接看出问题在哪里。

自己用下面的方法,分析出是哪一行出问题了，然后有output.show()获得合成的SQL语句，看看问题在哪。