窗体中，双击出错问题，请老师们帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2018-6-10 19:22

本帖最后由 yjwdjfqb 于 2018-6-10 19:24 编辑

1.在窗体中，全选择后

2.双击，“资格证书编号”，就出错

找不到什么原因，请老师们帮帮忙，谢谢老师们了！
如图：
无标题.jpg

每点到一个位置就出错.rar (26.87 KB, 下载次数: 15)

yjwdjfqb · 发表于 2018-6-11 08:05

请老师们帮帮忙，谢谢老师们了！

vbee · 发表于 2018-6-11 08:08

本帖最后由 vbee 于 2018-6-11 08:13 编辑

crr定义不够，redim大点

yjwdjfqb · 发表于 2018-6-11 08:12

vbee 发表于 2018-6-11 08:08
没有出错啊，错误截图。

谢谢老师了！

vbee · 发表于 2018-6-11 08:19

SUB第一行加个s=0

yjwdjfqb · 发表于 2018-6-11 08:23

vbee 发表于 2018-6-11 08:19
SUB第一行加个s=0

老师你好，我修改了，还是不行，是不是，我没有修改对
麻烦老师把，修改的发一个好吧，谢谢老师了！

lsdongjh · 发表于 2018-6-11 08:24

字段重名！！！选择了一个字段，需要排序两个字段，当然出错

yjwdjfqb · 发表于 2018-6-11 08:35

lsdongjh 发表于 2018-6-11 08:24
字段重名！！！选择了一个字段，需要排序两个字段，当然出错

老师你好，麻烦你帮我修改下好吧，谢谢你了！

lsdongjh · 发表于 2018-6-11 08:38

最简单的，改一下标题名就成啊

vbee · 发表于 2018-6-11 08:39

yjwdjfqb 发表于 2018-6-11 08:23
老师你好，我修改了，还是不行，是不是，我没有修改对
麻烦老师把，修改的发一个好吧，谢谢老师了！

Sub 左选项框排序()
s = 0
brr = 左选项框.Column
ReDim crr(1 To UBound(arr, 2) + 1)
For i = 1 To UBound(arr, 2)
      For j = 0 To UBound(brr, 2)
         If arr(1, i) = brr(0, j) Then
            s = s + 1
            crr(s) = arr(1, i)
            Exit For
         End If
      Next: Next
左选项框.List = crr
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 窗体中，双击出错问题，请老师们帮帮忙，谢谢大家了！

评分