| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这个代码应该放在那里才能每次都计算啊 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80858) |
| -- 作者：zchlln -- 发布时间：2016/2/4 10:00:00 -- 这个代码应该放在那里才能每次都计算啊 If e.Col.Name = "设备号" Then Dim fdr As DataRow = DataTables("续费表").Find("设备号 = \'" & e.Row("设备号") & "\'") If fdr Is Nothing Then e.DataRow("是否使用")= True Else e.DataRow("是否使用")= False End If End If
|
| -- 作者：大红袍 -- 发布时间：2016/2/4 10:01:00 -- DataColChanged事件
If e.DataCol.Name = "设备号" Then Dim fdr As DataRow = DataTables("续费表").Find("设备号 = \'" & e.DataRow("设备号") & "\'")
If fdr Is Nothing Then
e.DataRow("是否使用")= True
Else
e.DataRow("是否使用")= False
End If
End If
[此贴子已经被作者于2016/2/4 10:01:30编辑过]
|
| -- 作者：zchlln -- 发布时间：2016/2/4 10:05:00 -- 以下是引用大红袍在2016/2/4 10:01:00的发言：
DataColChanged事件
If e.DataCol.Name = "设备号" Then Dim fdr As DataRow = DataTables("续费表").Find("设备号 = \'" & e.DataRow("设备号") & "\'")
If fdr Is Nothing Then
e.DataRow("是否使用")= True
Else
e.DataRow("是否使用")= False
End If
End If
[此贴子已经被作者于2016/2/4 10:01:30编辑过] 那之前的数据如何计算呢 [此贴子已经被作者于2016/2/4 10:06:08编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/2/4 10:07:00 -- 重置列
http://www.foxtable.com/help/topics/1469.htm
|