专家坐堂-程老师Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  程老师  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30833)

--  作者：若水三千
--  发布时间：2013/4/4 15:50:00
--  程老师

程老师您刚才给我的代码那里来的DR 啊没有声明这个变量啊你能完整给我一份嘛谢谢啦

Dim s As String = "不评定|六|五|四|三|二|一
Select Case e.DataCol.Name
Case "分"
If e.NewValue > -1 And e.NewValue < 7
Dim n As Integer = e.NewValue

e.DataRow("评定等级") = s.split("|")(n)
e.DataRow("思想分") = 55
e.DataRow("政治分") = 45 +n
Dim drs As List(Of DataRow) = e.DataTable.Select("分 = " & e.NewValue,"_SortKey",-2)
If drs.Count > 1
Dim lc As String = drs(drs.Count-2)("备注")
If lc = "做袖子"
e.DataRow("备注") = "做口袋"
Else If lc = "做口袋"
e.DataRow("备注") = "行棉"
Else
dr("备注") = "做袖子"
End If
End If
Else
dr("备注") = "做袖子"
End If
End If
End Select

[此贴子已经被作者于2013-4-4 15:56:40编辑过]

--  作者：若水三千
--  发布时间：2013/4/4 16:01:00
--
那位大哥帮忙下啊程老师给我这个代码没有声明变量DR 啊怎么办呢

--  作者：jianjingmaoyi
--  发布时间：2013/4/4 16:49:00
--
怎么一会儿是dr 一会儿是e.datarow 同样是备注

--  作者：czy
--  发布时间：2013/4/4 20:30:00
--

将下面两行中的dr改一下就行了。

Dim s As String = "不评定|六|五|四|三|二|一
Select Case e.DataCol.Name
    Case "分"
        If e.NewValue > -1 And e.NewValue < 7
            Dim n As Integer = e.NewValue

            e.DataRow("评定等级") = s.split("|")(n)
            e.DataRow("思想分") = 55
            e.DataRow("政治分") = 45 +n
            Dim drs As List(Of DataRow) = e.DataTable.Select("分 = " & e.NewValue,"_SortKey",-2)
            If drs.Count > 1
                Dim lc As String = drs(drs.Count-2)("备注")
                If lc = "做袖子"
                    e.DataRow("备注") = "做口袋"
                Else If lc = "做口袋"
                    e.DataRow("备注") = "行棉"
                Else
                    e.DataRow("备注") = "做袖子"
                End If
            End If
        Else
            e.DataRow("备注") = "做袖子"
        End If
    End If
End Select

--  作者：若水三千
--  发布时间：2013/4/5 6:39:00
--
出现错误啊没有有效的枚举数值
此主题相关图片如下：捕获.jpg