主题：改成按钮的代码应该怎么做？

此主题相关图片如下：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

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

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

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

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

Select Case  c.Name

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

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