vb高手进来，高分悬赏

来源：百度知道 编辑：UC知道 时间：2024/06/05 05:57:48
简单说，我想设计一个报告系统，包括一个combo的母目录，一个list的子目录，一个子目录对应的文本内容。比如说：母目录：肝脏、胆囊、胰腺……“肝脏”下的子目录：肝癌、肝硬化、肝破裂……，“胆囊”子目录：胆囊结石、胆囊癌、胆囊炎……文本框内则是对子目录的描述，如当我点击“肝癌”就在文本框中显示“肝脏增大失常态……”
把编程的语句写给我就行了，里面的内容我自己添加！
十万火急！！！谢谢大家，回答满意的再加100分！！

我的用起来比楼上的方便 楼主可以少输入很多代码并且很容易维护
可以采用文件读写方式,文件读写和内置2选1
Dim GroupItems() As String
Dim SubItems() As String 'SubItems(X)中第X个母目录
Dim p() As String

Private Sub Combo1_Click()
Dim k() As String, i As Integer
p = Split(SubItems(Combo1.ListIndex), "|")

List1.Clear
For i = 0 To UBound(p)
k = Split(p(i), ",")
List1.AddItem k(0)
Next
End Sub

Private Sub Form_Load()
'-----------------------------------------------------
'以下是非文件版本 你可以和下下面的文件版本二选一
GroupItems = Split("肝脏|胆囊|胰腺", "|") '母目录,注意顺序
ReDim SubItems(UBound(GroupItems))

SubItems(0) = "肝癌,肝癌描述，这是描述中的逗号（全角）\n现在换行了，现在是\\n符号|肝硬化,肝硬化描述|肝破裂,肝破裂描述" '第一个母目录的子目录
SubItems(1) = "胆囊结石,胆囊结石描述|胆囊癌,胆囊癌描述|胆囊炎,胆囊炎描述" '对应第二个母目录
SubItems(2) = "胰腺1,胰腺1描述|胰腺2,胰腺2描述"<