以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:索引超出了范围  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160313)

--  作者:18310172639
--  发布时间:2021/1/28 17:11:00
--  求助:索引超出了范围

我在表事件中,填写了如下代码:

Dim A As New Filler
DataTables("施工结余物料").DataRows.Clear() \'清除原有数据
A.SourceTable = DataTables("表A")
A.SourceCols = "工单编号"
A.DataTable = DataTables("施工结余物料")
A.DataCols = "工单编号"
a.ExcludeExistValue = True
a.ExcludeNullValue = True
A.Fill()

 

我是想在表A中,每增加一个工单编号,施工结余物料表中的工单编号列,就自动增加这张工单,填入代码后,点击任一单元格都报错,请老师指教


图片点击可在新窗口打开查看此主题相关图片如下:索引超出范围.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/1/28 17:14:00
--  
这种代码不能放到表事件,设计一个窗口,发到窗口按钮中。

每个事件都有适用的场合,并不是随便把代码放到任意事件都能正常执行的

--  作者:18310172639
--  发布时间:2021/1/28 17:18:00
--  多谢,代码放到窗口好使
多谢老师,代码放在窗口中,问题解决了