- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11555)
-- 发布时间：2011/8/2 16:25:00
-- 数据填充
在例子中，派车表中填好派车的信息后，派车状态中“已派”字样填充在车辆信息表中对应的车号的派车状态。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2011/8/2 17:30:00
--
If e.DataCol.Name = "派车状态" Then
Dim dr As DataRow = DataTables("车辆信息").Find("车号 =\'" & e.DataRow("车号") & "\'")
If dr IsNot Nothing Then
dr("派车状态") = e.DataRow("派车状态")
End If
End If
-- 发布时间：2011/8/2 18:50:00
--
是这个意思吗？
“出车日期”列输入日期，“返车日期”列为空值时，“派车状态”列显示“已派车”；
“出车日期”列输入日期，“返车日期”列输入日期时，“派车状态”列的值为空。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
-- 发布时间：2011/8/2 21:24:00
--
谢谢明丰，你想的比我周全，这是我想要的功能，呵呵
-- 发布时间：2011/8/2 22:00:00
--
明丰，求一段条件代码，如果派车表中已派的车信息删除后，车辆信息表中的派车状态中的“已派车”字样同样被清除。掉。
-- 发布时间：2011/8/3 8:26:00
--
设置派车表的BeforeDeleteDataRow事件为：
Dim dr As DataRow = DataTables("车辆信息").find("车号 = \'" & e.DataRow("车号") & "\'")
If dr IsNot Nothing Then
dr.Delete
End If
[此贴子已经被作者于2011-8-3 8:36:35编辑过]
-- 发布时间：2011/8/3 10:57:00
--
补充:(lylin0648 的意思应该是只清除"派车状态"对应的值)
设置派车表的BeforeDeleteDataRow事件为:
Dim dr As DataRow = DataTables("车辆信息").find("车号 = \'" & e.DataRow("车号") & "\'")
If dr IsNot Nothing Then
dr("派车状态") = Nothing
End If
-- 发布时间：2011/8/3 13:59:00
--
明丰，谢谢了，你的理解是正确的，我只删除“车辆信息：中的对应值，而不是删除整条信息。。。。。谢谢