主题：会计科目-末级科目问题

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText =

dt = cmd.ExecuteReader

Dim ary As List(Of String())  = dt.GetValues("科目编号|科目名称")
Dim str As String = ""
For Each a As String() In ary
    str &= a(0) & " " & a(1) & "|"
Next
Dim nm As WinForm.ComboBox = e.Form.Controls("科目")
nm.ComboList = str

学生想实现打开窗口后,ComboBox控件中加载了不重复的末级科目,这个该怎么实现,请教老师

表格加一列【是否末级】，然后用递归一次性找出并给其赋值。

 

http://www.foxtable.com/help/topics/2502.htm

 

就这么简单的设置,居然没想出来,感谢老师的帮助