未完成 一个界面的存储和显示分开 例子

1 

 'bag的存储和显示应该分开,判断下空的就行,还得顺order，每次改序号, 这样显示和存储次序不绑定，还能兼容删除得情况
 

1 之前老版本

直接就是顺次从 a 列 往后加

但是没考虑过几种情况

  中间的ID可能删除，

  一旦删除后，序号就不对了，需要重新顺一遍，因为可能成为3 5 这样的循环，肯定不对

而且，显示，也应该是顺order后，往前排，而不是删了就空一个。。。很奇怪

新版本改动

1  先分离序号和order , 这不是一个序列，分离思考，很多时候都要这样

  每次刷新包裹时，先顺order

2 根据顺号的order重新显示，这样就没有空格显示再前面了，都时非空的显示再前

3 判断最后1个单元格，判断非空的，，，需要加强

4 可以兼容有删除数据库表的情况

5 现在表存储的内容，和显示是完全分离的逻辑，数据源一样

3 缺陷

新增数据，没有考虑往空行中间插，而是直接再最好插，以后需要优化

新版本

Function freshbag()     'bag的存储和显示应该分开,判断下空的就行,还得顺order，每次改序号, 这样显示和存储次序不绑定，还能兼容删除得情况

    b = 0
    r2 = Worksheets("petbag").Range("a999").End(xlUp).Row
    Dim arr1()


'先顺一遍order
    For i = 3 To r2

        If Cells(i, 1) = "" Then
            b = b + 1
        Else
            Cells(i, 1) = i - b - 2
        End If

    Next

'按实际的order显示
    r3 = Application.Max(Columns(1))
    For j = 1 To r3
        a1 = Application.Match("order", Worksheets("petbag").Range("1:1"), 0)
        a2 = Application.Match("petid", Worksheets("petbag").Range("1:1"), 0)
        b1 = Application.Match("id", Worksheets("pet1").Range("1:1"), 0)
        b2 = Application.Match("icon", Worksheets("pet1").Range("1:1"), 0)

        id2 = Application.index(Worksheets("petbag").Columns(a2), Application.Match(j, Worksheets("petbag").Columns(a1), 0))
        icon2 = Application.index(Worksheets("pet1").Columns(b2), Application.Match(id2, Worksheets("pet1").Columns(b1), 0))
        Controls("image" & j + 1).Picture() = LoadPicture(ThisWorkbook.Path & "\res\" & icon2 & ".jpg")

    Next

End Function

老版本

Function jump1(a)

   input1 = MsgBox("开始培养宠物？", vbYesNo, "确定则会关闭当前界面， 前往培养界面  ")

   If input1 = vbYes Then
       index1 = a
       Debug.Print "确定后index1= " & index1
       Worksheets("petbag").Cells(2, 6) = index1
       
       Unload UserForm1            '不能先关1，否则参数就传递不过去了，因为引用的方式是 userform1.index1,这样依赖好强，不如excel传递
'       UserForm1.Visible = False
       
       Load UserForm2          '为啥有时可以运行，有时报错，类型不匹配13？  应该是新 form初始化时出问题了才打不开
       UserForm2.Show
   Else
   
   End If

 
End Function