以文本方式查看主题

-  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=66176)
--  作者：半人马座比邻星
--  发布时间：2015/3/31 16:30:00
--  [求助]鼠标点击一下后触发的事件（获取当前行的所有列）

写了一段代码，但是运行不成功

有没有大神帮个忙看一下

 

With Tables("表A")

Dim i As Integer
Dim j As Integer
Dim path As String
For i As Integer = .BottomPosition To .TopPosition("表A").rows(i).Step-1
For j = 0 To Tables("表A").cols.Count-1

path = "f:\\ce shi wen jian jia1\\" & Tables("表A").rows(i)("第一列") &"\\"& Tables("表A").rows(i)("第二列")  &"\\"& Tables("表A").rows(i)("第三列") &"\\"& Tables("表A").rows(i)("第四列") &"\\"& Tables("表A").rows(i)("第五列") &"\\"& Tables("表A").rows(i)("第六列") &"\\"& Tables("表A").rows(i)("第七列") &"\\"& Tables("表A").rows(i)("第八列") &"\\"& Tables("表A").rows(i)("第九列") &"\\"& Tables("表A").rows(i)("第十列") &"\\"& Tables("表A").rows(i)("第十一列") &"\\"& Tables("表A").rows(i)("第十二列") &"\\"& Tables("表A").rows(i)("第十三列") &"\\"& Tables("表A").rows(i)("第十四列") &"\\"& Tables("表A").rows(i)("第十五列") &"\\"& Tables("表A").rows(i)("第十六列") &"\\"& Tables("表A").rows(i)("第十七列") &"\\"& Tables("表A").rows(i)("第十八列") &"\\"& Tables("表A").rows(i)("第十九列") &"\\"

Next
Next
End With

Output.Show(path)

 

这其实涉及到改变一行的某一列信息后同时改变与表格信息相对应的文件夹的名字（重命名问题）

鼠标点击后要先获取旧的文件夹路径，更改单元格内容后再获取新的文件夹路径

最后用 FileSys.RenameDirectory("C:\\MyFolder", "YourFolder")重命名

--  作者：Bin
--  发布时间：2015/3/31 16:33:00
--  
表的Click事件
e.row 就是当前行

for each c as col in e.table.cols
next
获得所有列
--  作者：有点甜
--  发布时间：2015/3/31 16:33:00
--  

 这种问题，你去编写Datacolchanged事件啊

 

 http://www.foxtable.com/help/topics/1469.htm

 
--  作者：半人马座比邻星
--  发布时间：2015/3/31 17:01:00
--  
大哥，能再多提醒点么？我一新手已蒙圈
--  作者：有点甜
--  发布时间：2015/3/31 17:05:00
--  

  你去Datacolchanged事件，加入代码效果

 

msgbox("旧值" & e.OldValue & "  新值" & e.NewValue & " 列名" & e.DataCol.Name)