粘贴一列多个数据的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在表的 DATACOLCHANGED 事件中加入了一些代码，这些代码包含 currenttable.position, 都与当前行有关，当我把数据一格一格粘贴到表上时，正常，

若是同时粘贴1列中的多格数据，事件执行只按第一行的currenttable.position执行，导致后面几行的代码执行不正确，请问这个如何解决。

贴出完整代码说明

If e.DataCol.Name = "物料信息_物料编码" Then

If Tables("表A").current("物料信息_级别") = 1 Then

e.DataRow("物料信息_层级") = e.DataRow("物料信息_物料编码")

End If

If e.DataCol.Name = "物料信息_物料编码" Then

If Tables("表A").current("物料信息_级别") = 2

Dim A As Integer = CurrentTable.Position

Dim t As Table = Tables("表A")

Dim C As Integer = t.Rows(A)("物料信息_级别")

Dim D As Integer = 0

Do While C > 1

If C = 2 Then

D = D+1

End If

A=A-1

C = t.Rows(A)("物料信息_级别")

Loop

e.DataRow("物料信息_层级") = t.Rows(A)("物料信息_物料编码") & "." & D

End If

表的列有物料信息_级别，物料信息_层级，物料信息_物料编码

如果我把第一行，第二行，第三行的 “物料信息_级别"列数字分别输入为 1，2， 2 ，再在“物料信息_物料编码”列中粘贴3个编码，这时，“物料信息_层级“只按 If Tables("表A").current("物料信息_级别") = 1 ”执行。

没看懂的第二段代码要做什么，这种表事件请直接使用e.DataRow，而不是current，currenttable这种东西

If e.DataCol.Name = "物料信息_物料编码" Then

If e.DataRow("物料信息_级别") = 1 Then

e.DataRow("物料信息_层级") = e.DataRow("物料信息_物料编码")

End If

具体请上传实例说明

以下是引用有点蓝在2021/2/4 16:32:00的发言：
没看懂的第二段代码要做什么，这种表事件请直接使用e.DataRow，而不是current，currenttable这种东西

If e.DataCol.Name = "物料信息_物料编码" Then

If e.DataRow("物料信息_级别") = 1 Then

e.DataRow("物料信息_层级") = e.DataRow("物料信息_物料编码")

End If

具体请上传实例说明

简单说下，

就是物料信息_级别为 1时，执行事件代码1，物料信息_级别为2时，执行事件代码2，

该2个代码都与当前行有关。

但我若是同时粘贴多个数据到物料信息_物料编码列，软件只按当前行对应的 "物料信息_级别" 上的数字执行，

比如如下：

物料信息_级别物料信息_层级物料信息_物料编码

1 77125453 77125453

2 77125454 77125454

2 77125455 77125455

物料信息_物料编码列的数字若是1个个粘贴或是手工输入，执行代码后结果如下，这是正确的运行结果

物料信息_级别物料信息_层级物料信息_物料编码

1 77125453 77125453

2 77125453.1 77125454

2 77125453.2 77125455

[此贴子已经被作者于2021/2/4 16:46:59编辑过]

使用文字说明一下事件代码2的逻辑和计算规则

主题：粘贴一列多个数据的问题