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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多列合并编写代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69470)

--  作者：yifan3429
--  发布时间：2015/6/5 16:48:00
--  多列合并编写代码

If e.DataCol.Name = "技术_状态" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If

If e.DataCol.Name = "订单编号" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If

If e.DataCol.Name = "产品编号" Then
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
End If

如上可以合并一起写需要怎样写呢老师们！请教了

--  作者：Bin
--  发布时间：2015/6/5 16:51:00
--
select case e.datacol.name
case  "技术_状态", "产品编号"
Dim dr As DataRow = DataTables("订单动态详情").addnew
dr("订单编号")=e.DataRow("订单编号")
dr("流程名称")=e.DataCol.name
dr("被操作的表")=e.DataTable.name
dr("操作人")=user.name
dr("XT_日期")=Date.now
dr("操作前值")=e.oldValue
dr("操作后值")=e.NewValue
end select

--  作者：大红袍
--  发布时间：2015/6/5 16:53:00
--

Select Case e.DataCol.name
    Case "订单编号", "技术_状态", "产品编号"
        Dim dr As DataRow = DataTables("订单动态详情").addnew
        dr("订单编号")=e.DataRow("订单编号")
        dr("流程名称")=e.DataCol.name
        dr("被操作的表")=e.DataTable.name
        dr("操作人")=user.name
        dr("XT_日期")=Date.now
        dr("操作前值")=e.oldValue
        dr("操作后值")=e.NewValue
End Select