[求助]关于跨表应用更新代码的问题，求大神指教！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于跨表应用更新代码的问题，求大神指教！

共有7593人关注过本帖树形打印复制链接主题：[求助]关于跨表应用更新代码的问题，求大神指教！

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/6 18:20:00 [显示全部帖子]

产品表BeforeDeleteDataRow事件

Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"

Dim ss() As String ={"品名","型号","规格","单价"}

For Each s As String In ss

DataTables("订单").ReplaceFor(s, Nothing, Filter)

为什么要清除产品表上的产品编号，想不明白。

[此贴子已经被作者于2013-4-6 18:21:45编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/6 22:44:00 [显示全部帖子]

测试有用的，最后要有个DataTables("订单").Save

不会发附件

[此贴子已经被作者于2013-4-6 22:47:15编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/7 20:01:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:更新.table

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/7 20:42:00 [显示全部帖子]

见下楼

[此贴子已经被作者于2013-4-7 20:48:53编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/7 20:46:00 [显示全部帖子]

DataColChanged事件

If e.DataCol.Name = "产品编号" Then

Dim Filter As String = "[产品编号] = '" & e.OldValue & "'"

Dim ss() As String ={"品名","型号","规格","单价"}

For Each s As String In ss

DataTables("订单").ReplaceFor(s, Nothing, Filter)

End If

[此贴子已经被作者于2013-4-7 20:46:45编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/7 23:31:00 [显示全部帖子]

DataColChanged

某一列的内容被更改后执行，此时列的内容已经是更改后的值。

e参数属性：

DataTable：返回发生数据更改的数据表。
DataRow：返回发生数据更改的数据行。
DataCol：返回发生数据更改的数据列。
NewValue： Object类型，表示新的值。
OldValue： Object类型，表示旧的值

Dim Filter As String = "[产品编号] = '" & e.OldValue & "'"

'取得修改前原有的值

Dim ss() As String ={"品名","型号","规格","单价"}

'定义一个集合，用于存放所有要修改的列名称

For Each s As String In ss

'遍历集合

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/7 23:38:00 [显示全部帖子]

'产品表BeforeDeleteDataRow事件

Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"

Dim ss() As String ={"品名","型号","规格","单价"}

For Each tab As Table In Tables '遍历Tables

If tab.Name.Contains("文档") '判断文档两字的表名

For Each s As String In ss

DataTables(tab.Name).ReplaceFor(s, Nothing, Filter)

End If

'DataColChanged事件

If e.DataCol.Name = "产品编号" Then

Dim Filter As String = "[产品编号] = '" & e.OldValue & "'"

Dim ss() As String ={"品名","型号","规格","单价"}

For Each tab As Table In Tables '遍历Tables

If tab.Name.Contains("文档") '判断文档两字的表名

For Each s As String In ss

DataTables(tab.Name).ReplaceFor(s, Nothing, Filter)

End If

不晓得是不是这个意思

[此贴子已经被作者于2013-4-7 23:41:24编辑过]

fjlclxj

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

加好友

发短信

等级：小狐帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00

Post By：2013/4/8 0:15:00 [显示全部帖子]

replacefor不需要遍历行建议先select case 再for each

[此贴子已经被作者于2013-4-8 0:15:47编辑过]

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

主题：[求助]关于跨表应用更新代码的问题，求大神指教！