四、Intouch中MSFlexGrid设置列宽

实现列宽根据内容容量自动调节大小。效果如图: 如果实现这样的效果：自我感觉在模块里添加自动调节的代码，然后在窗体里调用比较方便。 模块代码部分： Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIn

问题： 在查询记录的窗体用到了MSFlexGrid控件，但是有的记录字数太多，被控件给“吞”了，这个时候可以设置自动调整列宽。 解决： 在模块中定义： Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWid...

最近发现好多童鞋找关于intouch报表的资料，不知下面是不是需要的了。 每个【Intouch】项目都会或多或少的与各种【数据库】打交道，由于项目各异以及intouch自带报表的功能有限制，在报表外观样式，颜色，增删改查，过滤搜索，排序以及数据库的备份和删除等一些处理方式上大都不能完全满足项目的需求，或者说需要报表有更加完美的功能和呈现。在这里自己结合以前做过的项目开发了两种不同...

Public Sub AutoSizeFlexGrid(flexObject As MSHierarchicalFlexGridLib.MSHFlexGrid) Dim RsFlex As ADODB.Recordset, sngMaxWidth() As Single, sngTextWidth As Single Dim x As Integer, y As Integer With