- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问各位大师为什么这个按类别的编号方法当用用代码合并的时候不正常？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47734)
-- 发布时间：2014/3/16 16:26:00
-- [求助]请问各位大师为什么这个按类别的编号方法当用用代码合并的时候不正常？
用系统的高速合并，能够正常编号。在窗口用按钮click来合并，生成的编号都是一个样。不知道为什么。
按钮代码：
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "sheet1$"
mg.DataTableName = "小包发货单"
mg.Merge()
End If
自动编号代码放在datacolchanged里，
Select e.DataCol.Name \'自动生成子编码
Case "编号"
If e.DataRow.IsNull("编号") Then
e.DataRow("子编号") = Nothing
Else
Dim bh As String = e.DataRow("编号")
If e.DataRow("子编号").StartsWith(bh) = False \'如果子编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(子编号)","编号 = \'" & bh & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
Dim l As Integer = bh.Length
idx = CInt(max.Substring(l,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("子编号") = bh & Format(idx,"000")
End If
End If
End Select
-- 发布时间：2014/3/16 22:54:00
--
-- 发布时间：2014/3/16 23:15:00
--
还是一样。 后面都是001。。。还没有解决
-- 发布时间：2014/3/17 7:46:00
--
呵呵 max需要在保存情况下才能找到最大的编号,比如上一行是001 如果上一行没有保存,新增的行依旧是001.
-- 发布时间：2014/3/17 8:17:00
--
代码没有看出问题，做例子发上来。
-- 发布时间：2014/3/17 10:35:00
--
就是说代码合并的时候不是逐一保存行的咯？请问如何解决这个问题呢？
-- 发布时间：2014/3/17 10:37:00
--
狐爸，代码在高速合并情况下是正常执行的哦。。例子稍等。
-- 发布时间：2014/3/17 11:01:00
--
附excel表格“订单表”在项目文件夹里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打开文件对话框小例.zip |
-- 发布时间：2014/3/17 11:14:00
--
Dim cnt As Integer = DataTables("小包发货单").DataRows.count
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "sheet1$"
mg.DataTableName = "小包发货单"
mg.Merge()
End If
For i As Integer = cnt To DataTables("小包发货单").DataRows.count -1
Dim dr As DataRow = DataTables("小包发货单").DataRows(i)
dr("子编号") = Nothing
Next
DataTables("小包发货单").DataCols("编号").RaiseDataColChanged("子编号 Is null")
-- 发布时间：2014/3/17 12:40:00
--
终于没问题了。。谢谢狐爸~ 要好好学习一下。。