- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这段代码哪里错了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85329)
-- 发布时间：2016/5/23 13:15:00
-- 这段代码哪里错了
Dim bm1 As String = e.DataRow("所在部门")
Dim dr1 As DataRow = DataTables("词典").Find("类别 = \'部门\'","名称 = \'" & bm1 & "\'")
If dr1 IsNot Nothing Then
e.DataRow("部门代码") = dr1("代码")
End If
词典表分4列 分别为 类别、小类别、名称、代码
现在需要类别的里的名称为“部门“的行 按照名称列的名称 ，获取代码
-- 发布时间：2016/5/23 14:13:00
--
帮帮忙，急
-- 发布时间：2016/5/23 14:18:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.17.1
错误所在事件：表，员工信息，DataColChanged
详细错误信息：
调用的目标发生了异常。
无法找到列 名称 = \'技术科\'。
-- 发布时间：2016/5/23 14:19:00
--
Select Case e.DataCol.name
Case "类别", "所在部门"
If e.DataRow("类别") = "部门" Then
Dim bm1 As String = e.DataRow("所在部门")
Dim dr1 As DataRow = DataTables("词典").Find("类别 = \'部门\' and 名称 = \'" & bm1 & "\'")
If dr1 IsNot Nothing Then
e.DataRow("部门代码") = dr1("代码")
End If
End If
End Select
-- 发布时间：2016/5/23 14:21:00
--
此主题相关图片如下：wt1.jpg
此主题相关图片如下：wt2.jpg
-- 发布时间：2016/5/23 14:46:00
--
Select Case e.DataCol.name
Case "所在部门"
Dim bm1 As String = e.DataRow("所在部门")
Dim dr1 As DataRow = DataTables("词典").Find("类别 = \'部门\' and 名称 = \'" & bm1 & "\'")
If dr1 IsNot Nothing Then
e.DataRow("部门代码") = dr1("代码")
End If
End Select
-- 发布时间：2016/5/23 14:48:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.17.1
错误所在事件：表，员工信息，DataColChanged
详细错误信息：
调用的目标发生了异常。
列“类别”不属于表 员工信息。
词典表分4列 分别为 类别、小类别、名称、代码
信息表里有 所在部门、部门代码、职务、职务代码
-- 发布时间：2016/5/23 14:55:00
--
改成6楼代码