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

狐爸，

这个代码应该修改哪个地方呀？我都快急死了。。。。。。。。。。。

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")

在别在关联表中这是类似的代码就没有问题的呀

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

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

 

http://help.foxtable.com/topics/1485.htm

 

谢谢狐爸的提示

绕了一大圈，费尽了脑汁，总算是给折腾出来了

重新定向创建SQL数据库，不行

重新安装。NET 不行

重新安装SQL 不行

重新安装狐表 不行

N次的检查和测试以上代码 没发现问题

原来是有一个与此代码无关的列为日期型造成的，在DataColChanging加一代码就OK了

Case "预达日期"
        If e.NewValue = "#0001-01-01#" Then
            e.NewValue = Nothing
        End If

为什么不看我在8楼给出的帖子呢？

我做的那些绕圈的事，都是在你回复之前，就是看了你的贴子才找到原因的，建议狐爸把狐表出现的有代表性问题和解决办法应该搞一个汇总写帮助或论坛里，尤其是那些不同的错误提示的问题的解决办法，这样免得大家折腾呀