With wb.AddInputGroup("form1","ipg1","申报")
.AddSelect("选项","选项", "A|B )
End With
With wb.AddRadioGroup("form1","颜色","颜色")
Dim qshs As New List(Of String)
qshs = datatables("表A").GetValues("A")
For Each qsh As String In qshs
If qshs.Count =1 Then
.Add(qsh,qsh,True)
Else
.Add(qsh,qsh )
End If
Next
End With
请问一下 我选项选择A时 qshs = datatables("表A").GetValues("A")
选项选择B时 qshs = datatables("表A").GetValues("B")
应该怎么设置?
[此贴子已经被作者于2017/9/12 14:33:09编辑过]