以下是引用xss_wl在2016-11-10 17:42:06的发言：

模拟？他的整个程序就是围绕这个Excel文件展开的，你什么内容都不知道，怎么模拟？我十分愿意看到你模拟的结果。

以下是引用不说也罢在2016-11-10 19:01:39的发言：

opt_frm  下代码（r/w已赋值）
Private Sub optadd_Click(Index As Integer)
    ReDim opt_all(w)
        If optadd(Index).Value = True Then
            For j = 1 To r'这个循环里，有个变量i,它的值貌似一直没有变化
                opt_temp = xlSheet.Cells(i, 1)'楼主，你这个过程里的变量i是怎么使用的？窗体变量还是全局变量还是未赋值的？？
                If opt_temp = find1(Index) Then
                    For k = 1 To w
                        opt_all(k) = opt_all(k) + xlSheet.Cells(1, k) & "：" & xlSheet.Cells(j, k) & Chr(13) & Chr(13)
                    Next k
                End If
            Next j
        End If
    print_Frm.Show
    print_Frm.Print opt_all(k)
End Sub

我当前没有VB6环境，不好测试你的工程。请注意上述代码中的注释部分

以下是引用ami1999在2016-11-10 20:44:56的发言：
变量r：全局变量。在主窗体load时候，给r赋值。r是execl的行数。
变量i：全局变量。这段代码执行之前，已给i赋值。

以下是引用不说也罢在2016-11-10 20:56:07的发言：



如果这段代码执行之前，已给i赋值，那么在这个For j = 1 To r的循环里，opt_temp = xlSheet.Cells(i, 1)，i值不变， opt_temp这个变量的值始终不变，从而opt_temp = find1(Index)这个条件为真或为假在这个循环里也是始终不变的。

那尼这个循环还有什么意义？？？

我当前没有VB6环境，不好测试你的工程。你尝试将opt_temp = xlSheet.Cells(i, 1)这一行中的 i 改成 j 这个循环因子试一试。

以下是引用ami1999在2016-11-10 21:22:14的发言：

sorry
opt_temp = xlSheet.Cells(i, 1)
应该是
opt_temp = xlSheet.Cells(j, 1)

以下是引用不说也罢在2016-11-10 20:56:07的发言：



如果这段代码执行之前，已给i赋值，那么在这个For j = 1 To r的循环里，opt_temp = xlSheet.Cells(i, 1)，i值不变， opt_temp这个变量的值始终不变，从而opt_temp = find1(Index)这个条件为真或为假在这个循环里也是始终不变的。

那尼这个循环还有什么意义？？？

我当前没有VB6环境，不好测试你的工程。你尝试将opt_temp = xlSheet.Cells(i, 1)这一行中的 i 改成 j 这个循环因子试一试。

以下是引用不说也罢在2016-11-10 21:23:33的发言：


问题解决了吗？

以下是引用风吹过b在2016-11-10 12:53:28的发言：

因你的工作未带一个测试用的 XLS 文件 ，所以整个工程都无法调试。
概念，控件数组，最少有一个元素在设计阶段已确定的，然后其他元素复制这个元素的实例。
     控件数组，不能在运行时直接创建一个原先不存在的控件数组

在这里面
Public optadd() As OptionButton  '查询后增加控件变量  违反了定义

其次，控件数组的添加，
不能这样        Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", optadd(i)) '添加一个按钮 Public optadd As OptionButton
而应使用  Load Object (Index As Integer) 命令进行添加。

----------------
那么改？
首先，你应该放一个 下标为0 的元素，设置为隐藏。其他属性都设置好来。

使用时：
先 清掉除0下标外的所有的元素
for each obj in optadd
  if obj.index>0 then
     unload obj
  end if
next

然后再根据你的需要添加
load optadd(i)
再接着就是移动位置

        optadd(i).Move 200 + opt_w * 2000, (i - opt_w * 30) * 400, 2000, 375 'object.move left,top,width,height left距离左边， top距离顶端，  width新宽度， height新高度
        optadd(i).Caption = opt_nm '命名
        optadd(i).Visible = True    ' 可见

这三句，不是每个对象都设置，而是程序设计模式直接设置好 下标为0 的元素的属性，或者在代码中指定 下标为0 元素的属性。
这样每次加载时，就会把这个属性复制过去。
'        optadd(i).Font = "宋体"
'        optadd(i).FontBold = True
'        optadd(i).FontSize = 12