数据加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据加载

共有4093人关注过本帖树形打印复制链接主题：数据加载

张飞

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：51 积分：491 威望：0 精华：0 注册：2018/1/30 14:13:00

数据加载

Post By：2021/12/16 13:02:00 [只看该作者]

在项目时间中打开项目工程设计量表不加载数据，当打开项目后从其他表切换到工程设计量表特别卡，工程设计量表中有一个统计其他表数据的列

张飞

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：51 积分：491 威望：0 精华：0 注册：2018/1/30 14:13:00

Post By：2021/12/16 13:18:00 [只看该作者]

把项目事件DataTables("工程设计量").DataCols("工程名称").RaiseDataColChanged()，放在表事件中，是否可以

Case "工程名称","分项工程","施工部位","施工日期","规格型号"

DataTables("工程设计量").DataCols("工程名称").RaiseDataColChanged(dr)

If dr.IsNull("工程名称") OrElse dr.IsNull("分项工程") OrElse dr.IsNull("施工部位") OrElse dr.IsNull("施工日期") Then

dr("实耗量") = Nothing

Else

Dim filter As String

filter = "[工程名称] = '" & dr("工程名称") & "' And [分项工程] = '" & dr("分项工程") & "' And [施工部位] = '" & dr("施工部位") & "' And [施工日期] = #" & dr("施工日期") & "# And [强度等级] = '" & dr("规格型号") & "' And [出场拌合站] = '" & dr("出场拌合站") & "'"

dr("实耗量") = DataTables("混凝土出场台账").SQLCompute("Sum(运输方量)", Filter)

End If