以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  狐爸快点帮我看看这是个什么错误,急  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10290)

--  作者:红叶
--  发布时间:2011/5/28 11:36:00
--  狐爸快点帮我看看这是个什么错误,急


图片点击可在新窗口打开查看此主题相关图片如下: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")


[此贴子已经被作者于2011-5-28 11:43:19编辑过]

--  作者:程兴刚
--  发布时间:2011/5/28 12:18:00
--  
pf=f0rmat(……).text
--  作者:红叶
--  发布时间:2011/5/28 12:29:00
--  
以下是引用程兴刚在2011-5-28 12:18:00的发言:
pf=f0rmat(……).text

这是什么意思?


--  作者:红叶
--  发布时间:2011/5/28 13:40:00
--  

又出现这个错误了

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt


--  作者:程兴刚
--  发布时间:2011/5/28 14:06:00
--  
我用的是手机,不好测试,个人感觉pf是您定义的字符型变量,f0rmat()格式化的是时间格式,所得到的数据应该是时间型吧?与pf的格式是否匹配,有待测试!
--  作者:红叶
--  发布时间:2011/5/28 14:24:00
--  

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


--  作者:红叶
--  发布时间:2011/5/28 15:39:00
--  

我重新检查了关联设置

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

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

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20110528153447.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/5/28 15:51:00
--  

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

 


--  作者:红叶
--  发布时间:2011/5/28 17:12:00
--  

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


--  作者:狐狸爸爸
--  发布时间:2011/5/28 17:18:00
--  

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

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

[此贴子已经被作者于2011-5-28 17:17:51编辑过]