急！回答简单问题得高分！！！

Question

感觉很简单的问题可是我不会，请朋友们赐教！！！1、我的程序窗口上有两个单选钮option1和option2，我想实现当option1被选中时command1和command2的enable属性为false；当option2被选中时command1和command2的enable属性为ture2、哪位朋友能提供利用word模板打印记录集的例子。（感觉就是向word表格中添数据，表格的每一行对应记录集中的一条记录）如能提供可多多加分！

Answer 1

Private Sub Option1_Click()
    Command1.Enabled = False
    Command2.Enabled = False
End SubPrivate Sub Option2_Click()
    Command1.Enabled = True
    Command2.Enabled = True
End Sub

Answer 2

1.
Private Sub Option1_Click()
Command1.Enabled = False
Command1.Enabled = False
End SubPrivate Sub Option2_Click()
Command1.Enabled = True
Command1.Enabled = True
End Sub

Answer 3

private sub option1_click()
 if option1.value =true then 
     Command1.Enabled = False
     Command1.Enabled = False
 end if 
end subprivate sub option2_click()
 if option1.value =true then 
     Command1.Enabled = true
     Command1.Enabled = true
 end if 
end sub

Answer 4

  问题1简单!
  问题2怎么不用Excel?还用WORD来做表格?

Answer 5

同意 longki(农民写代码) 之看法!呵呵...

Answer 6

1\ iStar64(iStar_64) 
2 googel  or用Excel

Answer 7

2、哪位朋友能提供利用word模板打印记录集的例子。（感觉就是向word表格中添数据，表格的每一行对应记录集中的一条记录）如能提供可多多加分！
//
'引用Word对象库
'假设已经有ADO记录集
dim i as integer ,j as integer ,iCount as integer,jCount as integer
iCount=rs.RecordCount
jCount=rs.Fields.Count 
'在Word中增加一个2行5列的表格,列宽为自动调整
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=iCount+1, NumColumns:= _
        jCount, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
'表头
for j=1 to jCount 
    ActiveDocument.Tables(1).Cell(1, j).Range.Text = rs.Fields(j).Name
nextfor i=1 to jCount
    for j=1 to jCount 
          ActiveDocument.Tables(1).Cell(i+1, j).Range.Text = rs.Fields(j).Value
    next 
    rs.MoveNext
next

Answer 8

现在没有数据库,没有数据集,所以只能在VB中写这些代码! :P!
只能写个大致原理 :$

Answer 9

用控件数组做比较方便：Option1(0), Option1(1); Command1(0), Command1(1)代码：
Private Sub Option1_Click(Index As Integer)
command1(0).Enable=option1(0).value
command1(1).Enable=option1(0).value
End sub使用建议楼主多看一些关于控件数组的用法，不但可以减少代码量，也可以提高程序运行速度，因为控件数组只是加载了同一个控件的多个副本，比直接加载多个单独的控件要少占很多资源（哪怕是多个相同的控件）
控件数组的创建方法：在窗体上先放一个控件，鼠标选中它，再按“ctrl+c”和“ctrl+v”就和一般的复制粘贴一样，VB会提示你是否要创建控件数组了。使用的方法和普通控件一样，只是名称后多了一个（Index）而已，同时也就可以用循环等方法来控制它们了。

Answer 10

感谢大家的热情支持！！！                  *^-^*
第一个问题我已经明白了，可是第二个问题还没有彻底解决，各位朋友手头有没有实例提供。
longki(农民写代码)朋友能提供Excel的实例程序吗？