- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 三个表间取值的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130609)
-- 发布时间：2019/1/26 21:25:00
-- 三个表间取值的问题
说明：调度总表增加一行后自动生成了调度时间和调度单号，车号及车属性信息是通过选择进行添加。调度信息明细是通过信息总表的“选定”逻辑列来复制部分列内容
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2019/1/27 12:18:00
--
1、请说明在哪个窗口操作测试，测试哪些按钮，需要做到什么效果。
2、你需要取值，直接查找不就行了？http://www.foxtable.com/webhelp/scr/0396.htm
-- 发布时间：2019/1/27 20:30:00
--
调度窗口中“添加运单”，选定运单增加行的同时，能把调度信息总表相应对应的调度单号及调度时间一并复制到调度信息明细表中的相应列中
-- 发布时间：2019/1/27 21:33:00
--
参考
If e.DataCol.Name = "选定" AndAlso e.DataRow("选定") = True Then
Dim nma() As String = {"办事处","运输车辆性质","交车单位名称","配板清单号","运输单号","任务单号","VIN码","上游客户","品牌","商品车","数量","出发地","到达地","运输动态","里程","计划下达时间","计划交车时间","下游终点省份","下游实际运输动态"} \'A表数据来源列
Dim nmb() As String = {"办事处","运输车辆性质","交车单位名称","配板清单号","运输单号","任务单号","VIN码","上游客户","品牌","商品车","运输台数","出发地","到达地","运输动态","里程","计划下达时间","计划交车时间","下游终点省份","下游实际运输动态"} \'B表数据接收列
Dim dr As DataRow = DataTables("调度信息明细表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
dr("调度单号") = Tables("调度信息总表").current("调度单号")
dr("调度时间") = Tables("调度信息总表").current("调度时间")
End If
If Tables("调度信息明细表").Current IsNot Nothing Then
If e.DataCol.Name = "选定" AndAlso e.DataRow("选定") = False Then
Tables("调度信息明细表").Current.Delete()
End If
End If
-- 发布时间：2019/1/28 8:41:00
--
谢甜版
-- 发布时间：2019/1/29 13:28:00
--
解决了
-- 发布时间：2019/1/29 15:10:00
--
直接删除，不就可以了？如
http://www.foxtable.com/webhelp/scr/0394.htm
-- 发布时间：2019/1/29 17:09:00
--
我可能没说明白。是删除调度信息明细表中的行后，信息总表相对应的“选定”逻辑行变为FALSE
-- 发布时间：2019/1/29 18:22:00
--
编写 DataRowDeleting 事件，查找，修改
http://www.foxtable.com/webhelp/scr/0633.htm
-- 发布时间：2019/1/29 19:43:00
--
此主题相关图片如下：9fj%`trt$5dcahah637cc`e.png