Dim Values() As String = DataTables("业务大表").GetComboListString("客户").split("|") With RibbonTabs("我的工作")("日期")("工具栏2")("组合框1") .Items.Clear For i As Integer = 0 To Values.Length - 1 Dim b As New RibbonMenu.Button(Values(i)) b.Text = Values(i) .Items.Add(b) Next End With
加好友 
发短信
Post By：2012/1/10 1:29:00 [显示全部帖子]
