以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  想做个逻辑列确认流程的功能!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52865)

--  作者:身份不明
--  发布时间:2014/6/24 17:18:00
--  想做个逻辑列确认流程的功能!

我勾选了后期,备注列就会显示“后期已经完成”勾选质检,备注列会显示“质检已经完成”

如果同时勾选了后期和质检,备注列会同时显示“后期已经完成,质检已经完成”。

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140624171424.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/6/24 17:22:00
--  
这么简单的赋值问题,这么久了你还是没掌握这基本知识啊图片点击可在新窗口打开查看

datacolchanged

select case e.datacol.name
        case "后期","质检"
          if e.datarow("后期") andalso e.datarow("质检") then
                e.datarow("备注")=“后期已经完成,质检已经完成”
             else if  e.datarow("后期") then
                e.datarow("备注")="后期已经完成"
          else if e.datarow("质检") then
                e.datarow("备注")="质检已经完成"
          else
                e.datarow("备注")=""
          end if
end select

--  作者:有点甜
--  发布时间:2014/6/24 17:22:00
--  
Select Case e.DataCol.Name
    Case "印刷完成", "后期", "质检"
        Dim str As String = ""
        If e.DataRow("印刷完成") = True Then
            str &= "印刷已完成,"
        End If
        If e.DataRow("后期") = True Then
            str &= "后期已完成,"
        End If
        If e.DataRow("印刷完成") = True Then
            str &= "后期已完成,"
        End If
        e.DataRow("备注") = str.TrimEnd(",")
End Select