关于checkboxlist急!请大家帮帮忙

ballnan 2004-07-24 10:50:45
我在运行的时候,在复选筐里选了多个值,但插进数据库里只有复选筐里的第一个值,这是为什么呢????
...全文
159 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ekinwt 2004-07-24
  • 打赏
  • 举报
回复
你的代码贴出来看看吧.这样子我们也不清楚的.
3tzjq 2004-07-24
  • 打赏
  • 举报
回复
用for each 遍历选中的项。
水如烟 2004-07-24
  • 打赏
  • 举报
回复
代码?
pzrr_00 2004-07-24
  • 打赏
  • 举报
回复
selectindex.text
csdnyoungpearl 2004-07-24
  • 打赏
  • 举报
回复
这个嘛,我想想啊。 Dim i As Integer
Dim subject As String

For i = 0 To dl.Items.Count - 1
If CType(dl.Items(i).FindControl("Subject"), CheckBox).Checked = True Then
subjectgrade = CType(dl.Items(i).FindControl("Subject"), CheckBox).Text & "," & subject
End If
Next

然后再update一下就行了阿。
ballnan 2004-07-24
  • 打赏
  • 举报
回复
有人能给我举个例子吗?就最简单的用一个checkboxlist
把所选的项插进数据库的同一个字段里头
ballnan 2004-07-24
  • 打赏
  • 举报
回复
不好意思!
我现在把checkboxlist(cb_SubjectGrade)放在了一个datalist(dl_SubjectGrade)里头

Dim i As Integer
For i = 0 To dl_SubjectGrade.Items.Count - 1
If CType(dl_SubjectGrade.Items(i).FindControl("cb_SubjectGrade"), CheckBox).Checked = True Then
txtSQL = "insert into TeacherResearch(SubjectGrade) values('" & CType(dl_SubjectGrade.Items(i).FindControl("cb_SubjectGrade"), CheckBox).Text "')"

DBSet = ExecuteSQL(txtSQL, ErrorMsg)
End If

Next
但我依然只能插入第一项,不能同时插入多项

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧