VSFlexGrid控件合并单元格的表头绑定数据库

cgxs65725

有个问题困惑好久。一直没有更好的解决方法。请麻烦帮忙看看。
想实现绑定数据库的表格后，表头合并单元格。分开两个都实现的容易。合在一起不知如何将数据偏移两行后开始初始化控件。
使用新类来加载IVSFlexDataSource_GetData，就不知道数据库的链接和绑定怎么做了。。。
另外列宽随内容自动拉伸自适应fg.AutoResize = True也无效果。

绑定ACCESS数据库

合并单元格

单独实现都可以。就是不知道合并单元格的表头后，绑定数据库如何做？绑定数据库后再设置合并单元格的表头也无效。
test.zip (132.01 KB, 下载次数: 40)

2020-8-8 15:24 上传

点击文件名下载附件
这是完整程序

cgxs65725

T100 发表于 2020-8-10 13:59
1.Rows = 18、.Cols = 18、.FixedRows = 2、.FixedCols = 0在Set fg.DataSource = rst前完成定义，合并单元 ...

高，实在是高。。。原来定义set前固定行列，这样就会自动偏移了。。。厉害啊。。。




===========================================================================
1、大神再帮忙看看，右键点出来的菜单，选增加一行时会提示错误。方法 additem 作用与对象IVSFlexGird 时失败
但是新增的按钮的事件又是正常。同样的处理方法

2、如果需要增加一列序号ID列。将数据库主键ID隐藏显示，但是表格内容按该ID列数字自动排序。

1.     fg.Col = 0
   
2.     fg.Sort = 3
   
3. 
   
4.    
   
5.     fg.FocusRect = flexFocusSolid
   
6.     fg.AutoSizeMouse = True
   
7.     fg.Editable = flexEDKbdMouse
   
8.     fg.FrozenCols = 3   '冻结两列
   
9.     fg.TabBehavior = 1
   
10.     fg.AllowSelection = False
    
11. '    fg.ColHidden(0) = True '隐藏ID列
    
12. '    TextBox1.ForeColor = vbBlue
    
13. '    TextBox1.SetFocus
    
14. 
    
15.     Me.Caption = "产品明细"

复制代码

上面代码提示invalid action when bound，
放到表头合并单元格内的with下，不报错，但是无排序效果。

1. 
   
2. '=========================合并单元格行首
   
3. With fg
   
4.     .Rows = 20
   
5.     .Cols = 8
   
6.     .FixedRows = 2
   
7.     .FixedCols = 0
   
8.     .Col = 0
   
9.     .Sort = 3
   
10. 
    
11. End With
    
12. '====================================

复制代码

附文件 test.zip (131.19 KB, 下载次数: 60)

2020-8-10 20:38 上传

点击文件名下载附件

cgxs65725

绑定数据库并合并表头的方法就没有吗？

cgxs65725

没有办法绑定数据库的同时，合并表头单元格吗？
只能代码重构数组插入表格吗？那要好多代码来重构增删改

cgxs65725

这样效果就对了。只是不是绑定数据库的方法

这样效果就对了。只是不是绑定数据库的方法。增删改全部要重构。就没有绑定数据库的办法吗。。。省点代码量

cgxs65725

这个 控件现在是落寞了吗？没啥人研究吗？

魂断蓝桥

cgxs65725 发表于 2020-8-10 11:10
这个 控件现在是落寞了吗？没啥人研究吗？

看了一下，应该可以实现

定义一个模块变量
p

装载数据前首先定义固定行的行数，然后再绑定数据
If p = 0 Then .FixedRows = 2
  Set .DataSource = ACCRS.DataSource


底下是单元格数据及合并单元格
.TextMatrix(0, 1) = "收入"
        .TextMatrix(0, 2) = "收入"
        .TextMatrix(0, 3) = "收入"
        .TextMatrix(0, 4) = "成本"
        .TextMatrix(0, 5) = "成本"
        .TextMatrix(1, 1) = "收入客户"
        .TextMatrix(1, 2) = "收入单价"
        .TextMatrix(1, 3) = "金额"
        .TextMatrix(1, 4) = "成本客户"
        .TextMatrix(1, 5) = "成本单价"
        .MergeCells = flexMergeFree
        .MergeCol(0) = True
        .MergeRow(0) = True
        .MergeCompare = 0

轩辕传说

VB6，，之前帮别人做过一个：收据打印：选来选去最后还是用这个小控件来做 VSFlexGrid。觉得还是直接使用表格来打印方便。

T100

1.Rows = 18、.Cols = 18、.FixedRows = 2、.FixedCols = 0在Set fg.DataSource = rst前完成定义，合并单元格行首在Set fg.DataSource = rst之后完成定义
2、自动调整宽度

求个已注册的：vsFlex8.ocx控制

cgxs65725

魂断蓝桥 发表于 2020-8-10 12:01
看了一下，应该可以实现

定义一个模块变量

大神，你的思路是自定义个模块变量，先表头合并单元格，然后将数据库返回组数插入这个模块变量，控件再绑定模块变量？那增删改也是需要在定义代码实现的吧。。。？

cgxs65725

轩辕传说 发表于 2020-8-10 13:22
VB6，，之前帮别人做过一个：收据打印：选来选去最后还是用这个小控件来做 VSFlexGrid。觉得还是直接使用表 ...

绑定数据，合并表头单元格。。。