老问题还没有解决,再次请教各位朋友!以前的贴都结贴,望各位继续帮忙!

gdutmo 2004-07-19 08:47:20
想实瑞的效果,在DATAGRID中的第一列加入一列CHECKBOX,而CHECKBOX只有选中和非选中状态(并非选中,变灰,非选中的三种状态)。每当CHECKBOX选中时就读取DATAGRID中的值。请各位帮忙。(此为VB。NET的WINFORM问题)请各位提供代码,万分感谢。
...全文
80 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
saucer 2004-07-20
  • 打赏
  • 举报
回复
the documentation contains vb code
chinahth 2004-07-20
  • 打赏
  • 举报
回复
学习
saucer 2004-07-19
  • 打赏
  • 举报
回复
for the event handler, see the sample code in the documentation

DataGridBoolColumn.FalseValueChanged and TrueValueChanged Event
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemWindowsFormsDataGridBoolColumnClassFalseValueChangedTopic.asp

http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemWindowsFormsDataGridBoolColumnClassTrueValueChangedTopic.asp?frame=true
saucer 2004-07-19
  • 打赏
  • 举报
回复

5.15 How can I put a checkbox in a column of my DataGrid?
http://www.syncfusion.com/FAQ/WinForms/FAQ_c44c.asp#q754q

5.28 How do I determine whether a checkbox in my datagrid is checked or not?
http://www.syncfusion.com/FAQ/WinForms/FAQ_c44c.asp#q831q
gdutmo 2004-07-19
  • 打赏
  • 举报
回复
我的程序是这样的,但那列CHECKBOX还是在最后一列,CHECKBOX还是有三种状态(选中,变灰,非选中)。不会写CHECKBOX触发的事件,请各位帮忙。先谢了。在线等。

Dim TblStyle As New DataGridTableStyle
Dim ColStyle As DataGridColumnStyle
Dim bColStyle As DataGridBoolColumn
Dim tbl As New DataTable
tbl = open_tab("SELECT userno,username FROM comm_user")
Dim cCurrent As New DataColumn("Current", GetType(Boolean))
cCurrent.AllowDBNull = False

tbl.Columns.Add(cCurrent)

DataGrid1.TableStyles.Clear()

With TblStyle
.ReadOnly = True
.AllowSorting = False
.GridColumnStyles.Clear()
.BackColor = System.Drawing.Color.AliceBlue
.AlternatingBackColor = System.Drawing.Color.MintCream
.HeaderBackColor = System.Drawing.Color.LightGray
.SelectionBackColor = System.Drawing.Color.PaleTurquoise
.SelectionForeColor = System.Drawing.Color.Red
.MappingName = "Comm_user" '这里少了关键一行,名称是不是这个你自己确定
End With


'第1列
bColStyle = New DataGridBoolColumn
With bColStyle
.AllowNull = False
.HeaderText = ""
.NullText = ""
.Width = 40
'.MappingName = tbl.Columns(2).ColumnName
.MappingName = "Current"
.Alignment = HorizontalAlignment.Center
End With
TblStyle.GridColumnStyles.Add(bColStyle)



'第2列
ColStyle = New DataGridTextBoxColumn
With ColStyle
.HeaderText = "期次"
.Width = 50
.ReadOnly = True
.NullText = ""
'.MappingName = tbl.Columns(1).ColumnName
.MappingName = "userno"
.Alignment = HorizontalAlignment.Center
End With
TblStyle.GridColumnStyles.Add(ColStyle)


'第3列
ColStyle = New DataGridTextBoxColumn
With ColStyle
.HeaderText = "号码"
.Width = 80
.ReadOnly = True
.NullText = ""
'.MappingName = tbl.Columns(2).ColumnName
.MappingName = "username"
.Alignment = HorizontalAlignment.Center
End With
TblStyle.GridColumnStyles.Add(ColStyle)

'TblStyle.GridColumnStyles.Add(ColStyle)
With DataGrid1
.DataSource = tbl
.TableStyles.Add(TblStyle)
.ColumnHeadersVisible = True
End With
gdutmo 2004-07-19
  • 打赏
  • 举报
回复
思归你有VB。NET的代码吗?C#我不太懂

16,554

社区成员

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

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