专家坐堂-改成按钮的代码应该怎么做？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=75258)

--  作者：jinzhengbe
--  发布时间：2015/10/1 22:44:00
--  改成按钮的代码应该怎么做？

此主题相关图片如下：2.png

x下面是源代码

Select Case e.DataCol.Name

   Case "女装"
        FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\pic\\" & d & "\\" )
        FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\spic\\" & d & "\\" )
        FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\ppic\\" & d & "\\" )

Case "男装"
       FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\man\\pic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\man\\spic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\man\\ppic\\" & d & "\\" )

    Case "鞋"
       FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\xie\\pic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\xie\\spic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\xie\\ppic\\" & d & "\\" )

    Case "包"

      FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\bag\\pic\\" & d & "\\" )
      FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\bag\\spic\\" & d & "\\" )
      FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\bag\\ppic\\" & d & "\\" )

    Case "饰品"
       FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\pin\\pic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\pin\\spic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\pin\\ppic\\" & d & "\\" )

    Case "童装"
       FileSys.CopyDirectory("f:\\as", "f:\\upfile1\\tong\\pic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as1", "f:\\upfile1\\tong\\spic\\" & d & "\\" )
       FileSys.CopyDirectory("f:\\as2", "f:\\upfile1\\tong\\ppic\\" & d & "\\" )
End Select

[此贴子已经被作者于2015/10/1 22:45:14编辑过]

--  作者：sloyy
--  发布时间：2015/10/1 22:55:00
--
e.col.name

--  作者：游
--  发布时间：2015/10/1 23:16:00
--

设计时，要注意看编辑器中下部的帮助文档，特别是e参数

按钮的点击事件，e参数是不会有DataCol属性的

你应该用表格的属性去设置

比如 Dim t As Table = Tables("订单")
      Dim c As Col = t.Cols(t.ColSel)

Select Case  c.Name

--  作者：大红袍
--  发布时间：2015/10/4 11:47:00
--

你按钮要实现什么啊？直接说逻辑。

你直接判断当前行的某列的值来写代码啊。能不能有点进步