- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口的组合框循环显示列表项所有值（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92574)
-- 发布时间：2016/11/7 15:48:00
-- [求助]窗口的组合框循环显示列表项所有值（已解决）
以下是计划任务的代码，可以显示指定的列表项（05），如果要求循环显示列表项的所有值，代码应该如何修改，请各位老师指教，谢谢！！
If Forms("窗口1").Opened Then
Dim cmb As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").SQLGetComboListString("第一列")
Dim vals() As String = DataTables("表A").GetComboListString("第一列","","第一列").Split("|")
For i As Integer = 0 To cmb.Items.Count - 1
If cmb.Items(i) = "05" Then
cmb.SelectedIndex = i
End If
Next
End If
[此贴子已经被作者于2016/11/7 16:42:54编辑过]
-- 发布时间：2016/11/7 16:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目28.foxdb |
-- 发布时间：2016/11/7 16:43:00
--
解决方案：
增加一个全局变量bzxh，变量类型Integer，初始值为0。
计划任务代码：
If Forms("窗口1").Opened Then
Dim cmb As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("第一列")
Dim vals() As String = DataTables("表A").GetComboListString("第一列","","第一列").Split("|")
cmb.SelectedIndex = bzxh
bzxh = bzxh + 1
If bzxh = cmb.Items.Count Then
bzxh = 0
End If
End If
-- 发布时间：2016/11/7 16:50:00
--
谢谢有点蓝老师的指教，多了一个解决问题的思路，再次感谢！！