标题：[求助] 代码生成编号问题

1楼

lifeofyiyi 发表于：2012/2/16 14:06:00

If e.DataCol.Name = "就诊日期" Then

If e.DataRow.IsNull("就诊日期") Then

e.DataRow("编号") = Nothing

Else

Dim bh As String = Format(e.DataRow("就诊日期"),"yyyyMMdd") '取得编号的8位前缀

If e.DataRow("编号").StartsWith(bh) = False '如果编号的前8位不符

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(编号)","就诊日期 = #" & e.DataRow("就诊日期") & "#") '取得该天的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("编号") = bh & Format(idx,"000")

End If

End If

请教，这段datacolchanged代码有啥错误吗，开始运行的时候可以生成，保存退出狐表再运行提示报错。

2楼

lifeofyiyi 发表于：2012/2/16 14:14:00

此主题相关图片如下：报错.jpg

[此贴子已经被作者于2012-2-16 14:17:31编辑过]

3楼

狐狸爸爸 发表于：2012/2/16 14:16:00

看不到你的图片，图片要上传，别人才能看得见。

4楼

lifeofyiyi 发表于：2012/2/16 14:19:00

不好意思哈，上传了。我想显示的格式是20120216001 类似的。

哦我有个新增按钮，是下一行的代码。按了之后报错是这样

Dim i As String

i = Date.Today

Forms("基本信息录入").Controls("dateToday").text = i

Tables("基本信息录入").Current("就诊日期") = i

这是窗口加载的时候的代码

[此贴子已经被作者于2012-2-16 14:21:46编辑过]

5楼

狐狸爸爸 发表于：2012/2/16 14:22:00

If e.DataCol.Name = "就诊日期" Then
    If e.DataRow.IsNull("就诊日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("就诊日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("编号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","就诊日期 = #" & e.DataRow("就诊日期") & "#") '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(8,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("编号") = bh & Format(idx,"000")
        End If
    End If
End If

6楼

lifeofyiyi 发表于：2012/2/16 14:41:00

啊啊啊谢谢老大，我明白了。

共6 条记录, 每页显示 10 条, 页签: [1]