用checkbox让用户选择列,然后根据指定的列用select显示就行了。
以下是生成select字段部分(zzf)的VB参考程序:
Dim zf(3)
ddzf = ""
For i = 0 To 2
zf(i) = ""
If Check1(i).Value = 1 And Check1(i).Caption <> "" Then
zf(i) = Check1(i).Caption + ","
ddzf = ddzf + zf(i)
End If
Next
zzf = Left(ddzf, Len(ddzf) - 1)