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