[求助]checklistbox控件赋值问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]checklistbox控件赋值问题

共有2887人关注过本帖树形打印复制链接主题：[求助]checklistbox控件赋值问题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/10 21:06:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/0951.htm、http://www.foxtable.com/webhelp/topics/0216.htm

dim ss() as string = tabels("表A").current("军人类别").split(",")

Dim lst As WinForm.CheckedListBox
lst = Forms("窗口1").Controls("CheckedListBox1")
For Index As Integer = 0 To lst.Items.Count - 1

if Array.Indexof(ss, lst.Items(Index )) > -1

lst.SetItemChecked(Index, True)

end if
Next

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/11 17:15:00 [显示全部帖子]

可能数据有问题，调试看看

msgbox(t1.current("战时战功"))

Dim ss1() As String = t1.current("战时战功").split(",")

For Index1 As Integer = 0 To lst1.Items.Count - 1

lst1.SetItemChecked(Index1, False)

msgbox(Array.Indexof(ss1, lst1.Items(Index1)))

If Array.Indexof(ss1, lst1.Items(Index1)) > -1 Then

lst1.SetItemChecked(Index1, True)

End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 9:01:00 [显示全部帖子]

-1弹出了几次？lst1这个CheckedListBox应该有4个选项，那么-1应该至少弹出3次，在调试看看

msgbox("|" & t1.current("战时战功") & "|")

Dim ss1() As String = t1.current("战时战功").split(",")

msgbox("length=" & ss1.length)

For Index1 As Integer = 0 To lst1.Items.Count - 1

lst1.SetItemChecked(Index1, False)

msgbox(lst1.Items(Index1) & "=" & Array.Indexof(ss1, lst1.Items(Index1)))

If Array.Indexof(ss1, lst1.Items(Index1)) > -1 Then

lst1.SetItemChecked(Index1, True)

End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 9:19:00 [显示全部帖子]

msgbox("|" & t1.current("战时战功") & "|")这个显示什么？竖线中间看看是否有空格

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 9:32:00 [显示全部帖子]

看不出什么问题了，请上传实例测试

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 9:45:00 [显示全部帖子]

列表项目有多余的空格

此主题相关图片如下：1.png

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 16:17:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/1928.htm

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110726 积分：563550 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/6/12 16:24:00 [显示全部帖子]

就是19楼的用法

下一主题 >> << 上一主题

主题：[求助]checklistbox控件赋值问题