标题：[求助]当选择某单元格时，能否获取所在列的列名（已解决）

因重复填充的需要，需判断所选择的列是否正确，否则不执行重复填充的代码。问题是，如何在选择单元格后，能够获取该单元格所在列的列名，请各位老师指教。谢谢！！

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

CurrentTable.cols(CurrentTable.colsel).name

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

 

Syscmd.Edit.RepeatFill()    '重复填充
    For Each dt As DataTable In DataTables    '保存数据
        dt.Save()
    Next

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

         if cl.name = "审核"

            ....

          end if

next

 

 

 

谢谢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