主题：导入 word 公式

如果你35楼代码都无法看懂，那么后续的分析，包括以后如果你的word、文本的格式变化，你同样不会处理。

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

 

改成

 

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

 

没看懂你表达的意思，格式日期列，参考

 

http://www.foxtable.com/webhelp/scr/0362.htm

 

具体问题，请用实例说明。

DataColChanged事件，写代码

 

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim d As Date = e.DataRow("日期")
        d = new Date(d.year, d.month, d.day, d.hour, 0, 0)
        Dim drs = e.DataTable.Select("日期 >= #" & d & "# and 日期 < #" & d.AddHours(1) & "#", "_Identify")
        If drs.count > 5 Then
            msgbox("不能超过5个编号")
        Else
            For i As Integer = 0 To drs.count-1
                drs(i)("编号") = format(d, "HH") & Format(i+1,"00")
            Next
        End  If
    End If
End If

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim d As Date = e.DataRow("日期")
        d = new Date(d.year, d.month, d.day, d.hour, 0, 0)
        Dim drs = e.DataTable.Select("日期 >= #" & d & "# and 日期 < #" & d.AddHours(1) & "#", "_Identify")
        If drs.count > 5 Then
            msgbox("不能超过5个编号")
        Else
            For i As Integer = 0 To drs.count-1
                drs(i)("编号") = format(d, "yyyyMMddHH") & Format(i+1,"00")
            Next
        End  If
    End If
End If

1、代码不用改；

 

2、请把你的日期列改成DateLongTime的格式 http://www.foxtable.com/webhelp/scr/0044.htm

 

再不会做，就请上传具体实例说明。

请上传具体实例，说明你的问题。执行什么操作，用什么效果响应？