以文本方式查看主题

-  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=11609)
--  作者：yyzlxc
--  发布时间：2011/8/4 12:37:00
--  [求助]当选择某单元格时，能否获取所在列的列名（已解决）
因重复填充的需要，需判断所选择的列是否正确，否则不执行重复填充的代码。问题是，如何在选择单元格后，能够获取该单元格所在列的列名，请各位老师指教。谢谢！！
[此贴子已经被作者于2011-8-4 13:44:05编辑过]
--  作者：mr725
--  发布时间：2011/8/4 12:57:00
--  

获取该单元格所在列的列名

CurrentTable.cols(CurrentTable.colsel).name
--  作者：yyzlxc
--  发布时间：2011/8/4 13:17:00
--  

谢谢mr725老师，但是不太明白，下列按钮代码，需要判断所在列是否“审核”列，应如何修改代码？谢谢指教。

 

Syscmd.Edit.RepeatFill()    \'重复填充
    For Each dt As DataTable In DataTables    \'保存数据
        dt.Save()
    Next
--  作者：mr725
--  发布时间：2011/8/4 13:32:00
--  

For Each cl As col In Tables("xxx").cols   

         if cl.name = "审核"

            ....

          end if

next

 

 
--  作者：yyzlxc
--  发布时间：2011/8/4 13:44:00
--  

 

谢谢mr725老师的指教，根据二楼的代码，自己拼凑了一下，达到目的，四楼的代码更精练，学习了。再次感谢mr725老师的热心帮助！！

 

dim a as string
a = CurrentTable.cols(CurrentTable.colsel).name
if a = "审核" Then
If  _UserGroup = "管理" Then
    Syscmd.Edit.RepeatFill()    \'重复填充
    For Each dt As DataTable In DataTables    \'保存数据
        dt.Save()
    Next
ElseIf _UserGroup = "开发" Then
    Syscmd.Edit.RepeatFill()    \'重复填充
    For Each dt As DataTable In DataTables    \'保存数据
        dt.Save()
    Next
End If
End If