主题：列宽设置

各位老大:早上好！

   我想用数据表来设置列宽，

 在表A  DataColChanged中的代码如下：

 

  Select Case e.DataCol.Name
       Case "第五列"
        For Each dc As DataCol In DataTables("表B").DataCols
            If e.DataRow("第四列") = dc.Name Then
                 dc.Width = e.NewValue      
            End If
        Next
  End Select

 

以上不知道有什么问题，请帮忙指点一下，

多谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:大红bom查询.rar

你想实现什么效果?   代码是没有问题的,错的是你的逻辑.  你要说明白你的逻辑是什么要实现什么效果

Select Case e.DataCol.Name
    Case "第五列"
        If DataTables("表B").DataCols.Contains(e.DataRow("第四列")) Then
            Tables("表B").Cols(e.DataRow("第四列")).width = e.NewValue
        End If
End Select

哇！解决了，感谢3楼！！！