因为我开发的项目都是相关联的，拆分出来一小块还比较麻烦。
给你拆分出来MSHFlexGrid1 表格的一个实例 。以及增删改查的全套代码和一些我使用成熟的函数。
里面都写了注释，我也是刚学一个月，理解的不一定正确，具体你自己一步一步看吧
*附件***********************

如果你要 listviwe 的资料，进这个excel论坛查看
https://club.

[此贴子已经被作者于2021-12-11 20:03编辑过]

    哈哈有点小开心了，到现在BOM模块基本上算是写完了。这也是物料管理的最核心部分了。就这一个子模块功能，前前后后用了快两周了,脑细胞死了不少！
总结一下，以下几点:
1. 数据库内层级码规律的设计，字符串的拆分组合逻辑。排序，层级逻辑。
2. 从数据库内查询层级码后，自动生成Treeviwe,这里攻关了根据件名全自动匹配零件图，总成子件的多层级严格排序难点（产品由多层级的总成，小总成，子件构成，对层级的变化和要求很严格）
3. 从Treeviwe界面上可视化，随意增改删各层级子件，和图片，理论上可以无限层级增加，每个单层级的子件上限为999件，相信如果不是造飞机，这个量是冗余量是够了的。
4. 可操作Excel模板批量编辑BOM层级，导入数据库，自动加载到软件前端。批量上传前进行自检，和比对数据库中已存在同零件层级码，因为层级码的规则是BOM精确性的关键点，所以上传前双层自检很重要，本来想简单点，如果上传的数据错了，删除重新上传。但想一下还是做好防呆吧，有可能错误的数据不要进数据库。这里用到了数组和字典，字典不太熟所以多花了一天时间。
    我相信在现有这个思路上，还是有很多提升的空间，后面自己有能力了再从算法上改良吧。 有一个缺憾就是，用VB操作EXcel ，开始调用时，响应会有个1秒的延迟，不够丝滑啊。 考虑加个进度条吧，VB的单线程，也不好搞。因为我这个过程不是循环造成的。也不好加进度条，有点难搞啊。

1. 解压文件后，数据库是包含在DATA 文件夹内的。代码会自动访问连接。解压后不要把文件拖出来启动，就在哪个文件夹里运行。因为数据路径设为了 APP.path\DATA
2. 报错的是表格插件，其实示例里面没有用到，不影响。 你可以在部件里加载这个就行了。
*************

呃， 你发的这个只是我没有删除的登陆界面的读取txt配置的一个过程。我的所有代码都全在里面了。
如果只是要看表格演示过挰，你可以直接修改连接路径就行了，代码直接改几个字就行了。
如果是别人写的代码逻辑，我也可以一步一步 F8 看， 就能搞清楚了。

感谢！
请教一下，VSFLEXGRID 需要收费吗，还是免费开源的？

看你做的这个界面，你是做机加工行业的，你做的这个界面
我要做的大部分模块功能和你左边菜单标的差不多。
你开发完这一套花了多长时间 ？

目前编程储备知识还不够，风版的这些好的建议我们还没有能力去实践，
慢慢进步，慢慢来。

不知道你用的是不是accdb 格式。 一般来说，不会出现你说的哪种情况。我现在就是用accdb 做数据库。联接是完全没有问题的。 下面是我以前用过的一些連接代码
给你参考一下。
在模块中的代码******************************

'*****************************************************************************************
'03函数名：  OPENACCESS
'函数功能：  打开数据库形成一个记录集（myPath ，myTable是全局变量）
'*****************************************************************************************
Function OPENACCESS(SQL As String) ''
On Error GoTo errmsg   ' 改变错误处理的方式。
    Dim cnn '定义数据库连接和SQL语句
    Set cnn = CreateObject("adodb.connection")  '定义CNN为一个数据集
    Set RS = CreateObject("adodb.recordset") '创建一个数据集保存数据
    If Application.Version * 1 <= 11 Then
    cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & myPath & " ; jet oledb:database password=" & "0745" '//0745是数据库密码
    Else
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myPath & ";jet oledb:database password=" & "0745"
    End If
    RS.Open SQL, cnn, 1, 3 '创建一个可以读写的数据集’// 这一句也可以不写在模块里
    GoTo 111
errmsg:
    MsgBox Err.Description, , "错误报告"
111
End Function

*****应用中**************************

Private Sub Command信息删除_Click()
'On Error GoTo errmsg
If MsgBox("是否删除【" & Me!客户简称 & "】的所有信息资料？", 32 + vbYesNo, "系统提示！") = vbYes Then
Rem 定义数据路径
myPath = 下载路径("数据库路径") & "\2商务项目.accdb" '//下载路径是定义的一个函数，用来抓取存在数据库中备存的各种路径，这里可以直接换成路径
myTable = "B1客户列表"
Rem 结束
SQL = "SELECT * FROM " & myTable & " where 客户编号='" & Me!客户编号 & "'"
OPENACCESS (SQL)
RS.Delete
RS.Close
Set RS = Nothing
Rem 清空
Call 清空控件(Me.Form)
MsgBox "删除记录成功", , "系统提示！"
End If
Call Command查询_Click
Me!B1客户管理子窗.Requery '//刷新
Application.RefreshDatabaseWindow
Exit Sub
errmsg: MsgBox "数据库内没有" & Me!客户编号 & "这个编号记录", , "系统提示！"
End Sub

另外用VBA开发的话，建议用Access来开发，在一定程度上还要优于VB， 主要缺点就是在要别人的电脑上安装Access ,比较麻烦。不推荐用EXCL开发，因为EXCL基本上每台办公电脑都会要用到，有的人喜欢office,有的人喜欢wps,而且就算全用excel，版本不一致还是很多不适配。让所有的电脑统一用同一版本的excl比较麻烦，你布署软件运行就很麻烦。ACCess的话用于日常处理办公的人很少，软件冲突的可能性要小很多

    自问年级一大把了，也不至于有哗众取宠的爱好了，只不过是借论坛冷清的一角，记录一下自己心情，说直白一点，当属自娱自乐而已，如果能收获几个志同道合的朋友，平时讨论一下，也是一个开心的事情。 从没想过，也不致于去触怒别人！
******************************************
    贵宾您可能是看的太快，我从没说过，学一个星期来做应用。11月份开始正式接触VB的， 以前上班时对excel VBA 有一定的了解和应用。然而就算是我真说了，又如何呢？这也只是，敢与不敢的区别，而决扯不到智商的高度吧。
    无知者无畏，的确，我无知，所以我无畏！我开篇时就已承认了的，了解的越多，就知道自己欠缺的更多，做为专业的人或是高人，的确有资格站在高度上，甚至于带着怜悯的心态来府视我们初学者，并表达一些看法。 但这并不能影响我自己去决定做什么吧。
******************************************
    至于代码的原创性，我买了几本书，还天天看论坛，都是抄的，连 if, then,next 这些单词 都是抄的，我自己也没有能力创造出什么新的东西。这一点我完全承认的
    另外，我也没有吃着几颗茴香豆，蘸着酒水教大文豪写字的胆量。只不过是人家在我开的贴子里提问了，我尽我的能力和我的理解给出回应。仅此而已！ 至于是否会招人厌恶，我倒是还没有去想过。毕竟，我也没有主动窜到人家面前去之乎者也吧！ 我不好为人师，
******************************************
    我，一个普通中年人，因爱好，借贵宝地一角，做一个心得记录，不妨碍别人的.....！ 仅此而已！无他亦无妨吧.......。

[此贴子已经被作者于2021-12-19 20:24编辑过]

QQ好久没用了，我下载好了后加你！

也没什么，只是有些奇怪。
有能力去汇编语言版块秀一下，不是更有存在感吗？
如果很强，可以用 010101 编出一段来，给大家学习，哪就更能让人仰视了！

主观意识里，还在用过气的VB的人，都是孔乙已，迂腐且落后。用高级流行语言的人是高端的，雷军、乔布斯式的精英。
基础不一样，起点不一样，面向的需求情况也不一样，老旧的VB并非原罪。总有它价值的存在。

说实话，在VB版块，几个初学者面前，也体现不出多少的优越感！

[此贴子已经被作者于2021-12-20 21:43编辑过]

    今天心情不错，做个小总结，首先感谢 wlbwxd 给我推介的 VS 表，我们一起学习这个表的用法，。 真的是比较好用，相较自带的表单。 好用太多，Excel上的一些功能都可以移过来。其中复制粘贴很不错！ 主要是wlbwxd 的改良很不错！
*界面操作，发几个动图，不知是否能发，*********************************************

*软件中VS表和外部软件EXCEL 数据的自由粘贴复制交换数据*************************************

*EXcel中一些常用的功能在VS中的模仿*************************************


大神略过，不要嘲讽了！ 初学者的自嗨而已！！！

为什么图片发上来，拉的这么大。。。。

[此贴子已经被作者于2021-12-21 18:04编辑过]