标题：将数据移除到窗口表上

1楼

denghui69986 发表于：2025/5/12 15:09:00

把完工的数据移动到另外窗口外部数据表上下面代码总弹窗提示不在同对应列上，列都调整一样的顺序还是提示弹窗不在同数据列上面，计件明细表是外部数据添加进内部表，新建完工表窗口是直接用的外表数据表，老师帮忙看看那里问题

下面代码：

Dim a As Table = Tables("计件明细表")

Dim b As Table = Tables("新建完工表_Table1")

For r As Integer = 0 To a.Rows.Count - 1

Dim nr As Row = b.AddNew

For c As Integer = 0 To a.cols.Count - 1

nr(c) = a.Rows(r)(c)

For r As Integer = a.rows.Count - 1 To 0 Step - 1

a.rows(r).Delete

2楼

有点蓝 发表于：2025/5/12 15:14:00

详细错误提示发上来看看。

是不是有表达式列？

3楼

denghui69986 发表于：2025/5/12 15:23:00

这样提示

此主题相关图片如下：错误弹窗提示.png

4楼

有点蓝 发表于：2025/5/12 15:43:00

提示是currentchanged事件错误，1楼是这个事件全部代码？

5楼

denghui69986 发表于：2025/5/12 15:46:00

是全部代码

6楼

denghui69986 发表于：2025/5/12 16:03:00

我复制别人这全代码，这个不是窗口

Dim a As Table = Tables("制造日报表")

Dim b As Table = Tables("制造日报表存档")

For r As Integer = 0 To a.Rows.Count - 1

Dim nr As Row = b.AddNew

For c As Integer = 0 To a.cols.Count - 1

nr(c) = a.Rows(r)(c)

For r As Integer = a.rows.Count - 1 To 0 Step - 1

a.rows(r).Delete

7楼

有点蓝 发表于：2025/5/12 16:15:00

这种代码不适合放到表事件，放到窗口按钮里

8楼

denghui69986 发表于：2025/5/12 16:26:00

是用的按键，就弹窗提示

9楼

有点蓝 发表于：2025/5/12 16:30:00

如果使用的是按钮，怎么会提示是currentchanged事件错误！

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