VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 关于数据库中取字段错误的讨论
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10030, 日期:2001-06-18
小牛 问:
我用数据环境设计器连接数据库,在做录入界面的时候,我想在添加一个新记录时,某个单独的字段的值能够自动取上一条记录同字段的值。我是这样做的,但提示是空值:
Private Sub cmdApp_Click()
    Dim myid As Variant
    Dim mytype As Variant
    `On Error GoTo err
    myid = Val(bearingded.rsCmmbasic.Fields.Count) `编号自动累加
    bearingded.rsCmmbasic.MoveLast
    mytype = bearingded.rsCmmbasic.Fields("bearing_tpe").Value`这里有问题
    bearingded.rsCmmbasic.AddNew  `增加
    mytype = bearingded.rsCmmbasic.Fields("bearing_type").Value
    txtid.Text = myid + 1
    txtid.Enabled = False
    DataCombo1.Text = mytype `在这里提示是空值
    myMode = myAdd_Mode
    ChangeButton True
    Exit Sub
err:
`    MsgBox Error$
    MsgBox "增加轴承时出错!"
End Sub


请各位指点

北方男孩 答:
看好象没有问题
你可把movelast改为LastModified尝试一下,也许是对的!

Fred 答:
也很简单,添加判断语句(你写得太复杂了,改得太累)

rsCmmbasic.MoveLast
if not rsCmmbasic.eof then
   mytype = rsCmmbasic.Fields("bearing_tpe")
end if

小牛 回:
谢谢我解决了。
您说得没错,因为我在调试过程中产生了错误,在数据库的最后产生了许多空记录,所以出错了。谢谢你。明白了