主题：[求助]数据填充问题

为什么在“AfterOpenProject”中设置如图代码后，不能将整列数据搬过来，而只是搬了第一行数据。

此主题相关图片如下：2.png


此主题相关图片如下：1.png

测试没有问题，上例子

如果原先表里有其他数据，然后使用代码搬最后一列的数据会不会出现这种问题，我将表里空白的地方填了数据，可以搬了，但是搬过来的数据会显示到别的行，位置发生了偏移。

如图所示，我在Mid设置了表达式： 

 '管线编号：' + IsNull([F324],0) + '；管径：' + IsNull([F325],0) + '；入口信息位置：' + IsNull([F326],0) + '；热力入口设备配置：①型号规格：' + IsNull([F327],0) + '；②温度：' + IsNull([F328],0) + '；③压力：' + IsNull([F329],0) + '；④温量：' + IsNull([F330],0)

将F324到F330的数据统一集合到了Mid列，然后用数据填充的方式填到了F34列，AfterOpenProject代码：

Dim f As New Filler
f.SourceTable = DataTables("管道基础信息") '指定数据来源
f.SourceCols = "Mid" '指定数据来源列
f.DataTable = DataTables("管道基础信息") '指定数据接收表
f.DataCols = "F34" '指定数据接收列
f.Append = False
f.Fill() '填充数据

确定保存后，出现问题：搬运过来的数据少了3行，而且每一行的数据并不对应，顺序乱了。

 

此主题相关图片如下：3.png

自表填充，并且是表达式列，是会有这个问题。

您的意思是：不需要Mid这一列，直接在DataColChanged里用代码将我要的列的数据集合填充到F34列吗？能否给下简单的代码，我是新手。。。。多谢

http://www.foxtable.com/webhelp/scr/0625.htm

您看下有什么问题。
此主题相关图片如下：4.png


此主题相关图片如下：5.png

长代码换行

此主题相关图片如下：6.png