以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  将数据移除到窗口表上  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196551)

--  作者: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)
    Next
   
Next
For r As Integer = a.rows.Count - 1 To 0 Step - 1
    a.rows(r).Delete
Next

--  作者:有点蓝
--  发布时间:2025/5/12 15:14:00
--  
详细错误提示发上来看看。

是不是有表达式列?

--  作者:denghui69986
--  发布时间:2025/5/12 15:23:00
--  
这样提示

图片点击可在新窗口打开查看此主题相关图片如下:错误弹窗提示.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2025/5/12 15:43:00
--  
提示是currentchanged事件错误,1楼是这个事件全部代码?
--  作者:denghui69986
--  发布时间:2025/5/12 15:46:00
--  
是全部代码
--  作者: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)
    Next
   
Next
For r As Integer = a.rows.Count - 1 To 0 Step - 1
    a.rows(r).Delete
Next

--  作者:有点蓝
--  发布时间:2025/5/12 16:15:00
--  
这种代码不适合放到表事件,放到窗口按钮里
--  作者:denghui69986
--  发布时间:2025/5/12 16:26:00
--  
是用的按键,就弹窗提示
--  作者:有点蓝
--  发布时间:2025/5/12 16:30:00
--  
如果使用的是按钮,怎么会提示是currentchanged事件错误!