您的位置：程序门 -> vb -> 基础类

在线结分

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在线结分[已结贴,结贴人:ct114047689]

发表于：2007-03-06 17:07:30 楼主

set rs = conn.ＥＸＥＣute（ "select max（zdno) from zdls ")
if rs.fields（0) = 0 then
k = 1
else
k = rs.fields（1) + 1
end if
rs.update
'货品号

text1.text = format（date, "yyyymmdd ") & format（time, "hhmmss ") & format（weekday（now), "dd ") & format（k, "0000 ")

如果数据库中没有数据那就从1开始``如果有数据就在原来的基础上加1``
看一下这个代码哪里出错了`

发表于：2007-03-06 17:20:391楼得分:0

晕的`没人啊`

发表于：2007-03-06 17:27:592楼得分:0

该回复于2007-12-28 17:56:41被管理员或版主删除

发表于：2007-03-06 17:30:583楼得分:0

set rs = conn.ＥＸＥＣute（ "select max（zdno) from zdls ")
if rs.fields（0) = 0 then
k = 1
else
k = rs.fields（0) + 1
end if
rs.update

k = rs.fields（0) + 1
应该从0开始，可能是你笔误吧。

发表于：2007-03-06 17:34:454楼得分:0

不是这样的啊`
下了

发表于：2007-03-06 17:38:505楼得分:0

k = rs.fields（1) + 1

根本就没有rs.fields（1)这个字段嘛

发表于：2007-03-06 17:52:136楼得分:20

set rs = conn.ＥＸＥＣute（ "select isnull（max（zdno),0) from zdls ") 'sql2000
if rs.fields（0) = 0 then
k = 1
else
k = rs.fields（0) + 1
end if

主要是数据没有的时候，取出来的是null

发表于：2007-03-06 17:59:567楼得分:0

没明白什么意思。
是判断数据库里面有没有数据？那肯定你执行查询语句的时候就是错误的。

发表于：2007-03-06 18:03:308楼得分:0

set rs = conn.ＥＸＥＣute（ "select isnull（max（zdno),0) from zdls ") 'sql2000
if rs.fields（0) = 0 then
k = 1
else
k = rs.fields（0) + 1
end if

下一篇：像通用溢出工具如何用vb写？
上一篇：datagrid显示问题_（lookup关联显示)

其他资讯