以文本方式查看主题

-  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=30802)
--  作者：sadfox
--  发布时间：2013/4/3 19:12:00
--  [求助]大声帮忙改下代码！

总表的鼠标事件里放了如下代码，点击总表的浏览事件列的每一行都能在窗口的表控件里打开一个对应的文档表。现在希望大神帮忙用for语句改一个语句就能实现很多行，比如150或者200行的功能，求大神帮忙了，希望能在改了代码后能加上注释！

If e.Col.Name = "浏览事件"
    If e.Row.Index = 0
        Tables("主界面_事件").DataSource = DataTables("文档001")
        Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300")
    End If
    If e.Row.Index = 1
        Tables("主界面_事件").DataSource = DataTables("文档002")
        Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300“)
    End If
    If e.Row.Index = 2
        Tables("主界面_事件").DataSource = DataTables("文档003")
        Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300“)

    End If
    If e.Row.Index = 3
        Tables("主界面_事件").DataSource = DataTables("文档004")
        Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300“)

    End If

End If


 

[此贴子已经被作者于2013-4-3 19:12:28编辑过]
--  作者：xuezxz
--  发布时间：2013/4/3 20:39:00
--  

If e.Col.Name = "浏览事件"
 Dim n As Integer = e.Row.Index
 Dim wd As String = "文档" & Format(n,"000")
 Tables("主界面_事件").DataSource = DataTables(wd)
 Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300")
End If

 

这样行吗？
--  作者：sadfox
--  发布时间：2013/4/3 21:29:00
--  

谢谢，我去试试!
--  作者：sadfox
--  发布时间：2013/4/3 21:33:00
--  
OK,测试了20行，可行，能给个注释吗？老白学习下！谢谢！