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


  共有3449人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
riyuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
[求助]checklistbox控件赋值问题  发帖心情 Post By:2024/6/8 21:46:00 [显示全部帖子]

请教当选择当前行时,如何把表中的军人类别的值赋值到checklistbox控件,根据数据让checklistbox选中相应的值

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/11 16:54:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:screenshot-1718095879399.png
图片点击可在新窗口打开查看
为什么在选择当前行的时候,不显示荣誉称号的选择项,其他的都可以

[此贴子已经被作者于2024/6/11 16:54:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/11 16:56:00 [显示全部帖子]

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim r As Row = e.Table.Current
Dim t1 As Table = Tables("cjxx_Table1")
Dim xm, sfz, zzmm, bddh As String
Dim rwsj, twsj As String
xm = e.Form.Controls("xm").Text
sfz = e.Form.Controls("sfz").Text
zzmm = e.Form.Controls("zzmm").Text
bddh = e.Form.Controls("bddh").Text
rwsj = CStr(e.Form.Controls("rwsj").text)
twsj = cstr(e.Form.Controls("twsj").text)
Dim lst As WinForm.CheckedListBox
Dim lst1 As WinForm.CheckedListBox
Dim lst2 As WinForm.CheckedListBox
lst = e.Form.Controls("rylb")
lst1 = e.Form.Controls("zs")
lst2 = e.Form.Controls("ps")
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
e.Form.Controls("xm").Text = r("姓名")
e.Form.Controls("sfz").Text = r("身份证号")
e.Form.Controls("zzmm").Text = r("政治面貌")
e.Form.Controls("bddh").Text = r("部队代号")
e.Form.Controls("rwsj").Text = r("入伍时间")
e.Form.Controls("twsj").Text = r("退伍时间")
Dim ss() As String = t1.current("军人类别").split(",")
For Index As Integer = 0 To lst.Items.Count - 1
    lst.SetItemChecked(Index, False)
    If Array.Indexof(ss, lst.Items(Index)) > -1 Then
        lst.SetItemChecked(Index, True)
    End If
Next
Dim ss1() As String = t1.current("战时战功").split(",")
For Index1 As Integer = 0 To lst1.Items.Count - 1
    lst1.SetItemChecked(Index1, False)
    If Array.Indexof(ss1, lst1.Items(Index1)) > -1 Then
        lst1.SetItemChecked(Index1, True)
    End If
Next
Dim ss2() As String = t1.current("平时战功").split(",")
For Index2 As Integer = 0 To lst2.Items.Count - 1
    lst2.SetItemChecked(Index2, False)
    If Array.Indexof(ss2, lst2.Items(Index2)) > -1 Then
        lst2.SetItemChecked(Index2, True)
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/11 16:57:00 [显示全部帖子]

一等功、二等功、三等功和人员类别都可以正常显示 ,就中人有荣誉称号不行

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 8:51:00 [显示全部帖子]

测试了一下,显示的是荣誉称号和-1

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 8:52:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
测试了一下,显示的是荣誉称号和-1

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 9:07:00 [显示全部帖子]

-1弹出了4次


 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 9:11:00 [显示全部帖子]

分别弹出的结果是:
荣誉称号
length=1
荣誉称号=-1
一等功=-1
二等功=-1
三等功=-1


 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 9:23:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

显示的就是|荣誉称号|

[此贴子已经被作者于2024/6/12 9:24:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
riyuan
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:404 积分:3086 威望:0 精华:0 注册:2013/4/9 11:49:00
  发帖心情 Post By:2024/6/12 9:35:00 [显示全部帖子]

请指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
总数 14 1 2 下一页