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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表DataColChanged中的代码没反应？

共有7408人关注过本帖树形打印复制链接主题：表DataColChanged中的代码没反应？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/17 11:37:00 [显示全部帖子]

在项目事件MainTableChange加入代码：

If MainTable.Name = "统计表" Then
DataTables("统计表").DataCols("产品编号").RaiseDataColChanged()
End If

理由：

http://www.foxtable.com/help/topics/1587.htm

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/17 12:42:00 [显示全部帖子]

2楼我不是做了个文件给你吗，你都没有下载测试啊。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/17 16:29:00 [显示全部帖子]

你只有统计的代码，并没有增加项目的代码，如果要增加项目，MainTableChanged事件代码改为：

If MainTable.Name = "统计表" Then
    DataTables("统计表").DataRows.clear
    Dim nms As List(of String) = DataTables("产品").GetUniqueValues("产品编号 Is Not Null And 订单数量 Is Not Null","产品编号")
    For Each nm As String In nms
        Dim dr As DataRow = DataTables("统计表").Addnew
        dr("产品编号") = nm
    Next
End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

下一主题 >> << 上一主题

主题：表DataColChanged中的代码没反应？