主题：[求助]导入数据之后，写的表事件不起作用。

大神好，在客户编号那一列，我做了自动编号的事件，但是当导入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理系统.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:客户资料表.xls

表格数据的时候，自动编号不起作用，是了好几种事件了，都没效果，求助。

求助啊 

测试没有问题啊.手动增加正常编号.  导入Excel表格也正常编号啊

 或者那你在DataRowAdded事件加入代码

 

Dim bh As String="P"
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(客户编号)","客户编号 like '" & bh & "%'")
If max > "" Then '如果存在最大销售单号
    idx = CInt(max.Substring(bh.Length+1)) + 1 '获得最大销售单号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("客户编号") = bh & Format(idx,"00000")

甜版，您试下应用窗口后导入，那个自动编号不起作用

 看4楼

谢谢甜版，不过有点没看懂您写的，我自己又研究了下，重新写了下事件，现在没问题了。您写的compute,那个客户编号为啥要匹配

 

呃，因为有可能编码有不同的前缀，所以匹配P*了，你也可以不匹配。直接Compute("max(客户编号)")