标题：狐爸快点帮我看看这是个什么错误，急

此主题相关图片如下：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")

pf=f0rmat（……).text

这是什么意思？

又出现这个错误了

 

 

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

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

我用的是手机，不好测试，个人感觉pf是您定义的字符型变量，f0rmat()格式化的是时间格式，所得到的数据应该是时间型吧？与pf的格式是否匹配，有待测试!

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

我重新检查了关联设置

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

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

 

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

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

 

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

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

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