vb+access 客房管理信息系统
各位大侠们帮帮忙吧。。。。。。。小妹做毕业设计 有问题要问 。。。。希望帮帮忙表：预订登记表
字段：ydpz (预定凭证号) 模式： Y001 c-name(客户姓名。。。。)
窗体：有一个文本框 text1 一个按钮 command1 （预订新增）
问题: 就是在点 按钮的时候，怎么是文本框中自动生成编码。。。。
现在就是：我的预订登记表中 有Y001 Y002 Y003
就是 如果我现在一点预订新增是 文本框中 会自动出现Y004 --------------------编程问答-------------------- 首先用 select max(ydpz) as num from 预订登记表 取得最大的编号，比如Y003
然后 text1.Text = Left(rs!num, 1) & (Val(Mid(rs!num, 1)) + 1) --------------------编程问答-------------------- 实现不了呀 弹出一个对话框说是 缺少case --------------------编程问答-------------------- 你会不会写程序？ --------------------编程问答-------------------- 告诉你的是思路。不是让你这么写。你应该知道我给你的是sql语句。 --------------------编程问答-------------------- 恩 我的编程很烂呀 。。。。哎 不好意思 --------------------编程问答--------------------
你不是“编程很烂”，而是一窍不通，并非你笨，而是你似乎没有花任何时间在学习上。
连VB语句和SQL都分不清。如果我没有猜错，你之前的程序肯定不是自己写的，要不然是别人代劳的，要不然就是从哪里拷贝来改的。像你这样是走不通的。 --------------------编程问答-------------------- Adodc1.RecordSource = "select * from 预订登记表 order by 预定凭证号": Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1Text = "Y" + Format(Str(Val(Right(Adodc1.Recordset.Fields(0), 3)) + 1), "000")
Else
Text1.Text = "Y" + Format(Str(Val(Right(0, 4)) + 1), "000")
End If --------------------编程问答-------------------- Adodc1.RecordSource = "select * from 预订登记表 order by 预定凭证号": Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1Text = "Y" + Format(Str(Val(Right(Adodc1.Recordset.Fields(0), 3)) + 1), "000")
Else
Text1.Text = "Y" + Format(Str(Val(Right(0, 3)) + 1), "000")
End If --------------------编程问答-------------------- 纯属胡编，如有雷同，纯属巧合：
风花雪月太多
读书时间太少
不知如何代码
赶忙抱抱佛脚
补充：VB , 网络编程
