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

为什么在“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列吗？能否给下简单的代码，我是新手。。。。多谢

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


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

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

没有表达式列

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

整个表的内容是外部数据源的内容，F324到F330有数据，F34没有数据。

希望F34这一列显示的内容为：

（1）管线编号：F324；（2）管径：F325；（3）入口位置信息：F326；（4）热力入口设备配置：①型号规格：F327；②温度：F328；③压力：F329；④温量：F330

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


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

您看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar