- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如果在表时间中编辑 要怎么修改命令 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71854)
-- 发布时间：2015/7/19 14:25:00
-- 如果在表时间中编辑 要怎么修改命令
“账目类型”列数据自定义为“支出”和“收入”根据"相关人员"列的内容而自动代入
如果“相关人员”列内容=“教师一览表”“姓名”列下的任意一项，则“账目类型”=“支出”
如果“相关人员”列内容=“学生一览表”“姓名”列下的任意一项，则“账目类型”=“收入”
此主题相关图片如下：333333.png
If e.DataCol.Name = "相关人员" Then
If e.NewValue Is Nothing Then
e.DataRow("账目类型") = Nothing
Else
Dim dr As DataRow
dr = DataTables("教师一览表").Find("姓名 = \'" & e.DataRow("相关人员") & "\'")
If dr IsNot Nothing Then
e.DataRow("账目类型") = "支出"
End If
End If
End If
这样可以吗？
[此贴子已经被作者于2015/7/19 14:29:48编辑过]
-- 发布时间：2015/7/19 14:48:00
--
If e.DataCol.Name = "相关人员" Then
If e.NewValue Is Nothing Then
e.DataRow("账目类型") = Nothing
Else
Dim dr As DataRow
dr = DataTables("教师一览表").Find("姓名 = \'" & e.DataRow("相关人员") & "\'")
If dr IsNot Nothing Then
e.DataRow("账目类型") = "支出"
Else
dr = DataTables("学生一览表").Find("姓名 = \'" & e.DataRow("相关人员") & "\'")
If dr IsNot Nothing Then
e.DataRow("账目类型") = "收入"
End If
End If
End If
End If