以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何写这个表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85291)

--  作者:hongyefor
--  发布时间:2016/5/22 14:48:00
--  请问如何写这个表达式


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

 

如图,当我在第六列选勾时,直接将第一列的数据复制到第七列,并将第八列、第九列、第十列 分别填入相应的数据

这个表事件怎么写啊


 


--  作者:大红袍
--  发布时间:2016/5/22 15:00:00
--  

DataColChanged事件

 

If e.DataCol.Name = "第六列" Then
    If e.DataRow("第六列") = False
        e.DataRow("第七列") = Nothing
    Else
        e.DataRow("第七列") = e.DataRow("第一列)
    End If
End If


--  作者:hongyefor
--  发布时间:2016/5/22 15:09:00
--  
并将第八列、第九列、第十列 分别填入相应的数据
--  作者:hongyefor
--  发布时间:2016/5/22 15:10:00
--  

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

--  作者:hongyefor
--  发布时间:2016/5/22 15:32:00
--  
If e.DataCol.Name = "第六列" Then
    If e.DataRow("第六列") = False
        e.DataRow("第七列") = Nothing
        e.DataRow("第八列") = Nothing
        e.DataRow("第九列") = Nothing
        e.DataRow("第十列") = Nothing
    Else
        e.DataRow("第七列") = e.DataRow("第一列")
        e.DataRow("第八列") = "/sfz/"+ e.DataRow("第一列")+"/"+ e.DataRow("第一列")+"1"+".txt"
        e.DataRow("第九列") = "/sfz/"+ e.DataRow("第一列")+"/"+ e.DataRow("第一列")+"2"+".txt"
        e.DataRow("第十列") = "/sfz/"+ e.DataRow("第一列")+"/"+ e.DataRow("第一列")+"3"+".txt"
    End If
End If

--  作者:hongyefor
--  发布时间:2016/5/22 15:33:00
--  

这样写对吧?


--  作者:大红袍
--  发布时间:2016/5/22 15:37:00
--  
以下是引用hongyefor在2016/5/22 15:33:00的发言:

这样写对吧?

 

嗯嗯,正确。