主题：你好，请教下

一共有3个表   表A-数据（店面地址）     表B-审批内容（有原店面地址，新店面地址）  表C-通过审批（原店面地址，新店面地址）  

 

 

 

通过 表B 窗口按钮（通过审批）把 表B 输入的选定行内容直接剪切到 表C 中 并同时把 表A 中的店面地址更改成新地址

 

然后在通过 表C 窗口按钮(撤销审批）把表C 输入的选定行内容直接剪切到 表B 中 并同时把 表A 中的店面地址更改成原地址

代码类似

请看下

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

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

还有一个问题，我原先在窗口页面集合里进行数据统计，现在要增加别的表中的数据统计到这个页面合集里

统计每个数据行中的  每个列中的不同类型设备 每个列中不同地区进行统计

代码？例子？

就是 有      数据表（所有人员信息地址等)   业务申请表格(申请更换住所电话或设备)  业务完成表(申请的业务完成档案）

 

 

想通过 窗口模式 数据表数据调用申请人信息并在申请表中填写新地址、新电话、新设备，利用按钮(申请通过) 把申请文件移动到 业务完成表中 并在 数据表中把新的地址电话和设备进行 更替。

 

   

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

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

参考代码，自己修改。

 

Dim cur As Row = Tables("数据表").Current
Dim dr As Row = Tables("业务申请表").AddNew
dr("地址_原地址") = cur("地址")
dr("电话_原电话") = cur("电话")
dr("名称") = cur("名称")
Dim drs As List(Of DataRow) = DataTables("数据表").Select("名称='" & dr("名称") & "'")
For Each dr2 As DataRow In drs
    dr2("地址") = dr("地址_原地址")
    dr2("电话") = dr("电话_原电话")
Next