[新手ADP求助]为什么表中格式为''money''时，在窗体中保存会出错？

狼书生

我的"入库表"中设置的单价是"money"格式，小数位置设置为4位。可在绑定该表的窗体的文本框输入价格时却老是提示不正确，保存不了。进程序查看发现指向“单价”的文本框即使输入了数值，可值却为""。将"入库表"中的单价改为nvarchar数据类型后，就能保存。请问到底是怎么回事啊？由于要在后面对单价进行计算的。可数据格式设置不了。该怎么办啊？

该段代码如下：

Private Sub image008_click()
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = CurrentProject.Connection

    If Me.Text0 = "" Then
    MsgBox "你输入的信息不完整,请输入完整信息！", vbOKOnly, "警告信息"
    Else
    temp = "select * from 入库表 where 零件号='"
    temp = temp & UCase(Me.零件号) & " ' "
    rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs("零件号") = UCase(Me.Text0)
    rs("入库单号") = (Me.Text2)
    rs("入库数量") = (Me.Text4)
    rs("供货商") = (Me.Text8)
    rs("入库日期") = (Me.Text10)
    rs("零件仓") = (Me.Text12)
    rs("单价") = (Me.Text14)
    rs("单位") = (Me.Text16)
    rs("票据") = (Me.Text18)
    rs("备注") = (Me.Text20)
    rs.Update
    Me.入库表_子窗体.Requery
    rs.Close
    rs.Open "select getdate() as svrtime"
    Me.Text0 = ""
    Me.Text2 = ""
    Me.Text4 = ""

    Me.Text8 = ""
    Me.Text10 = Format(rs.Fields("svrtime"), "short date")
    Me.Text12 = ""
    Me.Text14 = ""
    Me.Text16 = "件"
    Me.Text18 = "有"
    Me.Text20 = "无"
    End If
    Me.Text0.SetFocus
   
End Sub

第一次做ADP，很多都不懂。各位老大帮帮忙看下。拜托了！[em04][em04]

[此贴子已经被作者于2006-6-17 11:41:33编辑过]

狼书生

怎么没人答啊？555555555555555555

是我说得不够清楚吗？[em06]

wuaza

rs("单价") =CDbl(Me.Text14)

狼书生

以下是引用wuaza在2006-6-17 12:47:00的发言：
rs("单价") =CDbl(Me.Text14)

用过楼上的大哥的方法后仍然没改变情况啊！

只有第一次（如1.0030）的数据后保存成功（公司财务要求价格保留４位小数）。后面在输入整数就出错，（即使再输入同样的数据到文本框Text14后再保存仍然出错。进程序后发现该文本框在输入数据后仍然是me.text14="

请问到底该怎么做才能解决啊？[em06]

狼书生

前几天的入库窗体总是不对，今天重新做了个出库窗。但还是有问题请教下各位大大！

Option Compare Database
Public rs As ADODB.Recordset
Public temp As String
Private Sub image104_click()
    If IsNull(Me![Text1]) Then
     MsgBox "你输入的数据不完整，请重新输入！", vbOKOnly, "系统警告"
     Me.Text1.SetFocus
    Else
        Set rs = New ADODB.Recordset
        rs.Open "出库表", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        rs.AddNew
        rs("零件号") = Me![Text1]
        rs("单号") = Me![Text3]
        rs("出库数量") = Me![Text5]
        rs("领用部门") = Me![Text7]
        rs("领用人") = Me![Text9]
        rs("领用日期") = Me![Text11]
        rs("零件仓") = Me![Text13]
        rs("单价") = Me![Text15]
        rs("单位") = Me![Text17]
        rs("客户") = Me![Text19]
        rs("备注") = Me![Text21]
        rs("金额") = Me![Text15] * Me![Text5]
        rs.Update
        
        rs.Close
        Set rs = Nothing
    End If

Me.出库表_子窗体.Requery
Me![Text1] = Null
Me![Text5] = Null
Me![Text15] = Null
Me![Text17] = "件"
Me![Text21] = "无"
Me.Text1.SetFocus
End Sub
谁帮我看看这段程序，看看哪里有问题啊

我在文本框Text15处输入数据赋值给"单价"结果只有第一次能成功，后面再输入重新保存时就是"单价"就是空白的，没有值输入了，表里显示的是空白。

表格"出库表"里的"单价"数据类型设置的是"Money"，小数位数是设置的4位.

点保存的时候,其他的数据都能复制进去,但就单价一项只有第一次能成功,再来就不行了。

但有个奇怪的现象，如果在输入了"零件号"、“出库数量”“单价后”如果再改动个其他数据，点保存时结果就正常了。

请问到底是怎么回事啊？知道的答下我。都为这个耽搁了好多天了。谢谢各位老大了！[em04]