以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11555)

--  作者:lylin0648
--  发布时间:2011/8/2 16:25:00
--  数据填充
在例子中,派车表中填好派车的信息后,派车状态中“已派”字样填充在车辆信息表中对应的车号的派车状态。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:hhbb
--  发布时间: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


--  作者:lylin0648
--  发布时间:2011/8/2 21:24:00
--  

谢谢明丰,你想的比我周全,这是我想要的功能,呵呵

 


--  作者:lylin0648
--  发布时间: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


--  作者:lylin0648
--  发布时间:2011/8/3 13:59:00
--  

明丰,谢谢了,你的理解是正确的,我只删除“车辆信息:中的对应值,而不是删除整条信息。。。。。谢谢