ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
12
返回列表 发新帖
楼主: cgxs65725

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

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-10 16:31 | 显示全部楼层
魂断蓝桥 发表于 2020-8-10 12:01
看了一下,应该可以实现

定义一个模块变量

好像这样也不是绑定数据库吧?增删改都要代码再实现?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-10 17:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 cgxs65725 于 2020-8-10 23:42 编辑
T100 发表于 2020-8-10 13:59
1.Rows = 18、.Cols = 18、.FixedRows = 2、.FixedCols = 0在Set fg.DataSource = rst前完成定义,合并单元 ...

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



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

2、如果需要增加一列序号ID列。将数据库主键ID隐藏显示,但是表格内容按该ID列数字自动排序。
  1.     fg.Col = 0
  2.     fg.Sort = 3

  3.    
  4.     fg.FocusRect = flexFocusSolid
  5.     fg.AutoSizeMouse = True
  6.     fg.Editable = flexEDKbdMouse
  7.     fg.FrozenCols = 3   '冻结两列
  8.     fg.TabBehavior = 1
  9.     fg.AllowSelection = False
  10. '    fg.ColHidden(0) = True '隐藏ID列
  11. '    TextBox1.ForeColor = vbBlue
  12. '    TextBox1.SetFocus

  13.     Me.Caption = "产品明细"
复制代码


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

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

  9. End With
  10. '====================================
复制代码



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



TA的精华主题

TA的得分主题

发表于 2020-8-11 08:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
好像绑定数据库,只能在最后新增行。

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

这种问题,首先不能考虑绑定数据库,绑定数据库虽然代码量少,但灵活性就欠缺了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-12 20:50 | 显示全部楼层
魂断蓝桥 发表于 2020-8-11 08:20
好像绑定数据库,只能在最后新增行。

2、如果需要增加一列序号ID列。将数据库主键ID隐藏显示,但是表格 ...

懒人办懒事嘛,不要介意。是想代码量少一点尽量实现功能。
现在就剩12楼的问题还没解决了。。。大侠给点意见

TA的精华主题

TA的得分主题

发表于 2020-8-13 08:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
cgxs65725 发表于 2020-8-12 20:50
懒人办懒事嘛,不要介意。是想代码量少一点尽量实现功能。
现在就剩12楼的问题还没解决了。。。大侠给点 ...

楼上说过了,个人认为:如果增加一个列,就不能绑定数据库

TA的精华主题

TA的得分主题

发表于 2020-8-14 13:11 | 显示全部楼层
cgxs65725 发表于 2020-8-10 17:40
高,实在是高。。。原来定义set前固定行列,这样就会自动偏移了。。。厉害啊。。。

1、原因不明,也没有使用过,只能先不使用右键菜单插入数据了。
2、fg.MergeCells <> flexMergeFree不能使用.sort了,试试rst.Sort = rst.Fields(1).Name & " ASC"
但是新增时不建议重新排序
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 17:04 , Processed in 0.033612 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表