主题：这段代码哪里错了

Dim bm1 As String = e.DataRow("所在部门")
Dim dr1 As DataRow = DataTables("词典").Find("类别 = '部门'","名称 = '" & bm1 & "'")
If dr1 IsNot Nothing Then
    e.DataRow("部门代码") = dr1("代码")
End If

 

词典表分4列 分别为 类别、小类别、名称、代码

现在需要类别的里的名称为“部门“的行 按照名称列的名称 ，获取代码

帮帮忙，急

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.17.1
错误所在事件：表，员工信息，DataColChanged
详细错误信息：
调用的目标发生了异常。
无法找到列 名称 = '技术科'。

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

此主题相关图片如下：wt1.jpg


此主题相关图片如下：wt2.jpg

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

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.17.1
错误所在事件：表，员工信息，DataColChanged
详细错误信息：
调用的目标发生了异常。
列“类别”不属于表 员工信息。

 

词典表分4列 分别为 类别、小类别、名称、代码

信息表里有 所在部门、部门代码、职务、职务代码

改成6楼代码