- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 你好，请教下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92514)
-- 发布时间：2016/11/5 14:01:00
-- 你好，请教下
一共有3个表 表A-数据（店面地址） 表B-审批内容（有原店面地址，新店面地址） 表C-通过审批（原店面地址，新店面地址）
通过 表B 窗口按钮（通过审批）把 表B 输入的选定行内容直接剪切到 表C 中 并同时把 表A 中的店面地址更改成新地址
然后在通过 表C 窗口按钮(撤销审批）把表C 输入的选定行内容直接剪切到 表B 中 并同时把 表A 中的店面地址更改成原地址
-- 发布时间：2016/11/5 15:06:00
--
代码类似
Dim cur As Row = Tables("表B").Current
Dim dr As Row = Tables("表C").AddNew
dr("第一列") = cur("第一列")
cur.Delete
Tables("表A").Current("店面地址") = cur("新店面地址")
-- 发布时间：2016/11/5 15:07:00
--
请看下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2016/11/5 15:20:00
--
Dim cur As Row = Tables("表B").Current
Dim dr As Row = Tables("表C").AddNew
dr("申请人") = cur("申请人")
dr("地址") = cur("地址")
cur.Delete
Dim dr2 As DataRow = DataTables("表A").Find("名称=\'" & dr("申请人") & "\'")
If dr2 IsNot Nothing Then
dr2("地址") = dr("地址")
End If
-- 发布时间：2016/11/5 15:29:00
--
还有一个问题，我原先在窗口页面集合里进行数据统计，现在要增加别的表中的数据统计到这个页面合集里
-- 发布时间：2016/11/5 15:31:00
--
统计每个数据行中的 每个列中的不同类型设备 每个列中不同地区进行统计
-- 发布时间：2016/11/5 15:52:00
--
代码？例子？
-- 发布时间：2016/11/6 12:50:00
--
就是 有 数据表（所有人员信息地址等) 业务申请表格(申请更换住所电话或设备) 业务完成表(申请的业务完成档案）
想通过 窗口模式 数据表数据调用申请人信息并在申请表中填写新地址、新电话、新设备，利用按钮(申请通过) 把申请文件移动到 业务完成表中 并在 数据表中把新的地址电话和设备进行 更替。
-- 发布时间：2016/11/6 12:50:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.rar |
-- 发布时间：2016/11/6 14:38:00
--
参考代码，自己修改。
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