如何保存combobox的空值

simon505 2014-12-21 11:13:17
数据绑定
GZ_ZgxxBLL GetZgxxdb = new GZ_ZgxxBLL();
this.comboBox3.DataSource = GetZgxxdb.GetYgglData();
this.comboBox3.DisplayMember = "zgxm";
this.comboBox3.ValueMember = "zggh";
this.comboBox3.SelectedIndex = -1;

因为需要保存数字，我这样取值的：aw.apr = comboBox3.SelectedValue.ToString();

但如果cmbobox3没有任何操作这样值就是null，就不能够保存数据
怎样才能够保存这个空值呢？
...全文
145 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
程序猿老曾 2014-12-22
  • 打赏
  • 举报
 回复
引用 8 楼 simon505 的回复:
[quote=引用 7 楼 cxzzwb 的回复:] [quote=引用 6 楼 simon505 的回复:] [quote=引用 5 楼 cxzzwb 的回复:] [quote=引用 4 楼 happy09li 的回复:] [quote=引用 3 楼 simon505 的回复:] dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html[/quote] 这也是个好方法！！不知道对你来说会不会有点深！！ 其实你职员离职的话，界面上应该会有控件来标识这个员工是否离职的嘛！！ 例如一个CheckBox，这样的话你就可以根据这个CheckBox选择的情况来决定是否获取dateTimePicker1的值啦！！ string strDateTime=this.CheckBox1.Checked==True?dateTimePicker1.Text.ToStiing():" ";[/quote] 这也是个办法 但还有没其他办法，通用点的 [/quote] 我觉得这个已经是比较通用的了！！而且这个没有那么麻烦。 还有一种是一个TextBox加一个MonthCalendar，默认MonthCalendar是不显示的，当用户点击TextBox时显示MonthCalendar，并将用户选择的年月日赋值到TextBox中，同时将MonthCalendar设置为隐藏！！ 这样你只需要读取TextBox的值即可！！[/quote] 如果不是在离职下使用呢？ 比如录入工单但故障还没有处理，这个日期就不应该有吧。有可能还不能够处理[/quote] 那就用第二种方法就可以啦！！一个空的TextBox加一个MonthCalendar，这样就可以满足空的情况。 其实像你说的这种情况，通常而言不是什么技术上的难题！！像故障没有处理，这个时候时间是为空的，但是故障处理之后在确定的时候直接在SQL插入语句中插入getdate()这样可以避免在界面上选择时间！！不过这些都是看需求的！！
simon505 2014-12-22
  • 打赏
  • 举报
 回复
引用 7 楼 cxzzwb 的回复:
[quote=引用 6 楼 simon505 的回复:] [quote=引用 5 楼 cxzzwb 的回复:] [quote=引用 4 楼 happy09li 的回复:] [quote=引用 3 楼 simon505 的回复:] dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html[/quote] 这也是个好方法！！不知道对你来说会不会有点深！！ 其实你职员离职的话，界面上应该会有控件来标识这个员工是否离职的嘛！！ 例如一个CheckBox，这样的话你就可以根据这个CheckBox选择的情况来决定是否获取dateTimePicker1的值啦！！ string strDateTime=this.CheckBox1.Checked==True?dateTimePicker1.Text.ToStiing():" ";[/quote] 这也是个办法 但还有没其他办法，通用点的 [/quote] 我觉得这个已经是比较通用的了！！而且这个没有那么麻烦。 还有一种是一个TextBox加一个MonthCalendar，默认MonthCalendar是不显示的，当用户点击TextBox时显示MonthCalendar，并将用户选择的年月日赋值到TextBox中，同时将MonthCalendar设置为隐藏！！ 这样你只需要读取TextBox的值即可！！[/quote] 如果不是在离职下使用呢？ 比如录入工单但故障还没有处理，这个日期就不应该有吧。有可能还不能够处理
程序猿老曾 2014-12-22
  • 打赏
  • 举报
 回复
引用 6 楼 simon505 的回复:
[quote=引用 5 楼 cxzzwb 的回复:] [quote=引用 4 楼 happy09li 的回复:] [quote=引用 3 楼 simon505 的回复:] dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html[/quote] 这也是个好方法！！不知道对你来说会不会有点深！！ 其实你职员离职的话，界面上应该会有控件来标识这个员工是否离职的嘛！！ 例如一个CheckBox，这样的话你就可以根据这个CheckBox选择的情况来决定是否获取dateTimePicker1的值啦！！ string strDateTime=this.CheckBox1.Checked==True?dateTimePicker1.Text.ToStiing():" ";[/quote] 这也是个办法 但还有没其他办法，通用点的 [/quote] 我觉得这个已经是比较通用的了！！而且这个没有那么麻烦。 还有一种是一个TextBox加一个MonthCalendar，默认MonthCalendar是不显示的，当用户点击TextBox时显示MonthCalendar，并将用户选择的年月日赋值到TextBox中，同时将MonthCalendar设置为隐藏！！ 这样你只需要读取TextBox的值即可！！
simon505 2014-12-22
  • 打赏
  • 举报
 回复
引用 5 楼 cxzzwb 的回复:
[quote=引用 4 楼 happy09li 的回复:] [quote=引用 3 楼 simon505 的回复:] dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html[/quote] 这也是个好方法！！不知道对你来说会不会有点深！！ 其实你职员离职的话，界面上应该会有控件来标识这个员工是否离职的嘛！！ 例如一个CheckBox，这样的话你就可以根据这个CheckBox选择的情况来决定是否获取dateTimePicker1的值啦！！ string strDateTime=this.CheckBox1.Checked==True?dateTimePicker1.Text.ToStiing():" ";[/quote] 这也是个办法 但还有没其他办法，通用点的
程序猿老曾 2014-12-22
  • 打赏
  • 举报
 回复
引用 4 楼 happy09li 的回复:
[quote=引用 3 楼 simon505 的回复:] dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html[/quote] 这也是个好方法！！不知道对你来说会不会有点深！！ 其实你职员离职的话，界面上应该会有控件来标识这个员工是否离职的嘛！！ 例如一个CheckBox，这样的话你就可以根据这个CheckBox选择的情况来决定是否获取dateTimePicker1的值啦！！ string strDateTime=this.CheckBox1.Checked==True?dateTimePicker1.Text.ToStiing():" ";
熙风 2014-12-22
  • 打赏
  • 举报
 回复
引用 3 楼 simon505 的回复:
dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
http://www.cnblogs.com/emanlee/archive/2009/07/26/1531308.html
simon505 2014-12-22
  • 打赏
  • 举报
 回复
dateTimePicker1 使用这个控件都会自动自动取得当前日期 如果现在不想得到日期 比如员工离职，需要离职那天才赋值
simon505 2014-12-21
  • 打赏
  • 举报
 回复
判断在赋值一个空值可以吗
exception92 2014-12-21
  • 打赏
  • 举报
 回复 

aw.apr = comboBox3.SelectedValue==null ? "" : comboBox3.SelectedValue.ToString();
domino xpags开发combobox默认空值
domino xpags开发combobox默认空值
jQuery EasyUI 1.5 离线简体中文API文档 含完整开发工具包+皮肤+扩展+演示
例行更新，不过本次有新组件加入，感觉这次的组件早就应该有了，居然到现在才加入进来，不管怎么说有总比没有好。这次还是以改进为主，改进项占了大多数。废话不多说具体内容大家看更新说明吧！另外由于经常收到chm格式文件无法用的反馈，其实不是无法用，只是要授权。虽然已经解释多遍，但是依然有人不知道，索性就取消chm格式的文档了，今后统一采用exe+pdf格式，由于目前尚无时间制作pdf格式的api文档，所以1.5版中只有exe的，pdf格式将在下一版中提供。 jQuery EasyUI 1.5版本更新内容： Bug（修复） combobox：修复在加载包含所选项数据的时候不会触发“onSelect”事件的BUG； datagrid：修复在字段设置为一个空值的时候导致在某些情况下“updateRow”方法无法正常工作的BUG。 Improvement（改进） 一个label标签可以被关联到任意表单的字段上； combobox：改进在下拉项中“select”和“unselect”的规则； combobox：添加“limitToList”属性来限制只能输入在列表项中的内容； combogrid：允许用户快速克隆组件； form：添加“dirty”属性，允许用户只发送变更的字段内容； form：添加“resetDirty”方法； datagrid：允许用户在没有数据的时候显示一条消息（比如：无记录）； textbox：添加“label”、“labelWidth”、“labelPosition”和“labelAlign”属性； spinner：添加“spinAlign”属性； calendar：允许用户在日历组件上显示周数（今年的第几周）； window：添加“constrain”属性。 New Plugin（新组件） passwordbox：该插件允许用户在具有更好交互功能的输入框中输入密码； combotreegrid：该插件结合了combobox和treegrid组件。
取cxLookupComboBox下拉各列的值
取cxLookupComboBox下拉各列的值
用VB编写的学生学籍管理
Dim i, j, n As Integer Dim sql As String Private Declare Function GetKeyState Lib "user32" _ (ByVal nVirtKey As Long) As Integer Public je As Integer '记忆菜单上次数值，实现数据传送 Private Sub acg_Click() Call asPopup7_Click(False) End Sub Private Sub addcg_Click() Call asPopup6_Click(False) End Sub Private Sub addstudent_Click() Call asPopup2_Click(False) End Sub Private Sub asPopup1_Click(Cancel As Boolean) Grid1.Visible = True Grid2.Visible = False tkbase = "学生信息" fnumber = 13 sql = "select * from " & tkbase grid1pz '执行grid1的分配空间任务 datagrid '按要求读取数据空间 End Sub Private Sub grid1pz() Grid1.Cols = fnumber + 1 Grid1.Column(1).Width = 120 Grid1.Column(2).Width = 100 Grid1.Column(3).Width = 80 Grid1.Column(4).Width = 40 Grid1.Column(5).Width = 80 Grid1.Column(6).Width = 30 Grid1.Column(7).Width = 100 Grid1.Column(8).Width = 200 Grid1.Column(9).Width = 60 Grid1.Column(10).Width = 80 Grid1.Column(11).Width = 100 Grid1.Column(12).Width = 100 Grid1.Column(13).Width = 100 Grid1.Column(4).CellType = cellComboBox Grid1.ComboBox(4).Clear Grid1.ComboBox(4).AddItem "男" Grid1.ComboBox(4).AddItem "女" Grid1.Column(5).CellType = cellCalendar Grid1.Column(1).Locked = True End Sub Private Sub asPopup2_Click(Cancel As Boolean) Grid1.Visible = True Grid2.Visible = False tkbase = "学生信息" fnumber = 13 Set qy1 = cnn.Execute("select * from " & tkbase) grid1pz For i = 1 To fnumber Grid1.Cell(0, i).Text = qy1.Fields(i - 1).Name Next Grid1.Column(1).Locked = False Grid1.Rows = 1 Grid1.Rows = 21 gridsave = True '允许保存 griddelete = False '拒绝删除 gridedit = False End Sub Private Sub asPopup3_Click(Cancel As Boolean) Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm fo2.hWnd = Form2.hWnd fo2.Alpha = 90 / 100 * 255 Me.WindowState = vbMinimized Load Form2 Form2.Show 1 End Sub Private Sub asPopup4_Click(Cancel As Boolean) Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm fo2.hWnd = Form4.hWnd fo2.Alpha = 90 / 100 * 255 Me.WindowState = vbMinimized Load Form4 Form4.Show 1 End Sub Private Sub asPopup5_Click(Cancel As Boolean) MsgBox "非完整源码不可查询！" End Sub Private Sub asPopup6_Click(Cancel As Boolean) Grid1.Visible = False Grid2.Visible = True tkbase = "学生与课程" fnumber = 5 gridpz2 Set qy1 = cnn.Execute("select * from " & tkbase) For i = 1 To fnumber Grid2.Cell(0, i).Text = qy1.Fields(i - 1).Name Next Grid2.Rows = 1 Grid2.Rows = 21 gridsave = True gridedit = False griddel = False Grid2.Column(1).Locked = False Grid2.Column(2).Locked = False Grid2.Column(3).Locked = False End Sub Private Sub asPopup7_Click(Cancel As Boolean) Grid1.Visible = False Grid2.Visible = True tkbase = "学生与课程" fnumber = 5 sql = "select * from " & tkbase gridpz2 datagrid gridsave = False gridedit = True griddel = True Grid2.Column(1).Locked = True Grid2.Column(2).Locked = True Grid2.Column(3).Locked = True End Sub Private Sub gridpz2() Grid2.Cols = 7 Grid2.Column(1).CellType = cellComboBox Set qy1 = cnn.Execute("select 课程号 from 课程") Grid2.ComboBox(1).Clear Do While Not qy1.EOF Grid2.ComboBox(1).AddItem qy1.Fields(0) qy1.MoveNext Loop Grid2.Column(2).CellType = cellComboBox Set qy1 = cnn.Execute("select 课程名称 from 课程") Grid2.ComboBox(2).Clear Do While Not qy1.EOF Grid2.ComboBox(2).AddItem qy1.Fields(0) qy1.MoveNext Loop End Sub Private Sub asPopup9_Click(Cancel As Boolean) End End Sub Private Sub c1_Click(Index As Integer) '提交内容到函数执行，4为当前菜单（0-4），index是按钮数组名称 cmove 4, Index End Sub Private Sub cmove(s As Integer, i As Integer) '菜单智能移动函数代码 Dim j As Integer Dim X, Y, z, x1, y1 As Integer X = s Y = s z = s x1 = s j = 0 Do While s > 0 If je > i Then Do While X > i Do While Y >= X j = j + 360 Y = Y - 1 Loop c1(X).Top = Fre1.Height - j X = X - 1 Loop Else '-----------------向上代码 For X = 0 To i For Y = 0 To X j = j + 360 Next c1(X).Top = j - 360 j = 0 Next End If s = s - 1 For y1 = 0 To x1 If y1 = i Then Fre2(y1).Visible = True Fre2(y1).Top = c1(y1).Top + c1(y1).Height If y1 <> z Then Fre2(y1).Height = c1(y1 + 1).Top - Fre2(y1).Top Else Fre2(y1).Height = Fre1.Height - c1(y1).Top - c1(y1).Height End If Else Fre2(y1).Visible = False End If Next Loop je = i End Sub Private Sub cgdel_Click() Call XPButton6_Click End Sub Private Sub cgedit_Click() Call XPButton4_Click End Sub Private Sub delstudent_Click() Call XPButton6_Click End Sub Private Sub editstudent_Click() Call XPButton4_Click End Sub Private Sub findcg_Click() If hang = 0 Then Exit Sub End If Grid1.Visible = False Grid2.Visible = True tkbase = "学生与课程" fnumber = 5 sql = "select * from 学生与课程 where 学号='" & Grid1.Cell(hang, 1).Text & "'" gridpz2 datagrid gridsave = False gridedit = True griddel = True Grid2.Column(1).Locked = True Grid2.Column(2).Locked = True Grid2.Column(3).Locked = True End Sub Private Sub Grid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu student End If End Sub Private Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row If gridsave = True And Col = 5 Then '确认默认年龄在20岁左右 If Row <> 0 Then Grid1.Cell(Row, 5).Text = Date - 7300 End If End If End Sub Private Sub Grid1_Validate(Cancel As Boolean) '设定TAB键切换 Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) < 0 Then nActiveRow = Grid1.ActiveCell.Row nActiveCol = Grid1.ActiveCell.Col If nActiveCol < Grid1.Cols - 1 Then Grid1.Range(nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub Form_Load() form1.BackColor = RGB(168, 217, 189) With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .DefaultFont.Name = "Tahoma" .DefaultFont.Size = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(84, 201, 134) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(198, 229, 211) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 End With With Grid2 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .DefaultFont.Name = "Tahoma" .DefaultFont.Size = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(84, 201, 134) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(198, 229, 211) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 End With je = 4 Dim fr As Integer Fre1.BackColor = RGB(168, 217, 189) For fr = 0 To 4 Fre2(fr).Visible = False Fre2(fr).BackColor = RGB(168, 217, 189) Next Grid2.Visible = False Call c1_Click(0) End Sub Private Sub Grid2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then MsgBox "非完整源码不支持鼠标右键！" End If End Sub Private Sub Grid2_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row End Sub Private Sub datagrid() griddelete = True '允许删除 gridedit = True If tkbase = "学生信息" Then If qy1.State = adStateOpen Then '表状态 qy1.Close End If qy1.Open sql, cnn, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber Grid1.Cell(0, i).Text = qy1.Fields(i - 1).Name Next qy1.PageSize = 20 nnum = qy1.PageCount If qy1.PageCount = 0 Then nnum = 1 End If numpage = 1 Label1.Caption = "共" & nnum & "页 第" & numpage & "页" Grid1.Rows = 1 Grid1.Rows = 21 If qy1.RecordCount = 0 Then Exit Sub End If qy1.AbsolutePage = numpage For i = 1 To qy1.PageSize '设定读取行 For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then Exit Sub End If If qy1.Fields(j - 1) <> noNull Then '空值的处理 Grid1.Cell(i, j).Text = qy1.Fields(j - 1) Else Grid1.Cell(i, j).Text = "" End If Next If qy1.EOF = False Then qy1.MoveNext '读取下一记录 Else Exit Sub End If Next ElseIf tkbase = "学生与课程" Then If qy1.State = adStateOpen Then '表状态 qy1.Close End If qy1.Open sql, cnn, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber Grid2.Cell(0, i).Text = qy1.Fields(i - 1).Name Next qy1.PageSize = 20 nnum = qy1.PageCount If qy1.PageCount = 0 Then nnum = 1 End If numpage = 1 Label1.Caption = "共" & nnum & "页 第" & numpage & "页" Grid2.Rows = 1 Grid2.Rows = 21 If qy1.RecordCount = 0 Then Exit Sub End If qy1.AbsolutePage = numpage For i = 1 To qy1.PageSize '设定读取行 For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then Exit Sub End If If qy1.Fields(j - 1) <> noNull Then '空值的处理 Grid2.Cell(i, j).Text = qy1.Fields(j - 1) Else Grid2.Cell(i, j).Text = "" End If Next If qy1.EOF = False Then qy1.MoveNext '读取下一记录 Else Exit Sub End If Next End If End Sub Private Sub Grid2_Validate(Cancel As Boolean) Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) < 0 Then nActiveRow = Grid1.ActiveCell.Row nActiveCol = Grid1.ActiveCell.Col If nActiveCol < Grid1.Cols - 1 Then Grid1.Range(nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub renovate_Click() Call asPopup1_Click(False) End Sub Private Sub returncg_Click() Grid1.Visible = True Grid2.Visible = False End Sub Private Sub savestudent_Click() Call XPButton5_Click End Sub Private Sub XPButton1_Click() MsgBox "非完整源码只可显示20条记录！" End Sub Private Sub XPButton2_Click() MsgBox "非完整源码只可显示20条记录！" End Sub Private Sub XPButton4_Click() If gridedit = False Then MsgBox "当前修改操作不被允许!", vbInformation, "非使用对象" Exit Sub End If If hang = 0 Then Exit Sub End If Dim delok As String End Sub Private Sub XPButton5_Click() If tkbase = "" Then MsgBox "表指向不明，请确认", vbInformation, "提示" Exit Sub End If If gridsave = False Then MsgBox "当前不允许保存！", vbInformation, "提示" Exit Sub End If Select Case tkbase Case "学生信息" For i = 1 To 20 '处理重名数据 If Grid1.Cell(i, 1).Text <> "" Then Set qy1 = cnn.Execute("select 学号 from 学生信息 where 学号='" & Grid1.Cell(i, 1).Text & "'") If qy1.EOF = False Then MsgBox "第" & i & "行的学号在数据库里出现重复，请检查", vbInformation, "错误" Grid1.Cell(i, 1).SetFocus Exit Sub End If End If Next For i = 1 To 20 For n = 1 To fnumber Select Case n Case 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 If Grid1.Cell(i, 1).Text <> "" Then If Grid1.Cell(i, n).Text = "" Then MsgBox "第" & i & "行的--[" & Grid1.Cell(0, n).Text & "]--字段不允许为空!", vbInformation, "提示" Grid1.Cell(i, n).SetFocus Exit Sub End If End If End Select Next If Grid1.Cell(i, 1).Text <> "" Then sql = "insert into " & tkbase & " values('" For j = 1 To fnumber - 1 sql = sql & Grid1.Cell(i, j).Text & "','" Next sql = sql & Grid1.Cell(i, fnumber).Text & "')" Set qy1 = cnn.Execute(sql) End If Next MsgBox "命令执行完毕!", vbInformation, "完成" Grid1.Rows = 1 Grid1.Rows = 21 Case "学生与课程" MsgBox "非完整源码不可保证学生与课程的记录！" End Select gridsave = False griddelete = False '拒绝删除 gridedit = False End Sub Private Sub XPButton6_Click() If griddelete = False Then MsgBox "当前删除操作不被允许!", vbInformation, "非使用对象" Exit Sub End If If hang = 0 Then Exit Sub End If Dim delok As String Select Case tkbase Case "学生信息" MsgBox "非完整源码不可修改！" Case "学生与课程" If Grid2.Cell(hang, 1).Text = "" Then Exit Sub End If delok = MsgBox("确认删除" & Grid2.Cell(hang, 3).Text & "的<" & Grid2.Cell(hang, 2).Text & ">成绩吗？？", vbQuestion + vbOKCancel, "注意:此操作将会将学生资料与成绩资料完全清除") If delok = vbOK Then sql = "delete from " & tkbase & " where 学号='" & Grid2.Cell(hang, 3).Text & "' and 课程号='" & Grid2.Cell(hang, 1).Text & "'" Set qy1 = cnn.Execute(sql) MsgBox "目标己删除完成!", , "提示" End If End Select End Sub Private Sub XPButton8_Click(Index As Integer) Call findcg_Click End Sub
DotNetBar For Windows Forms 11.7.0.6 官方原版+注册机（强悍的用户界面控件库）
DotNetBar是一款带有56个 Windows Form 控件的工具箱，使开发人员可以轻而易举地创建出专业美观的Windows Form应用程序用户界面，控件全部采用C#编写，引入了全部Office 2007 style Ribbon控件、Office 2003 office2010 样式、支持windows7,Windows XP主题等。DotNetBar for WindowsForms 全面支持Office 2010 风格的后台应用程序菜单。 DotNetBar For Windows Forms 11.7.0.6(11706) 官方原版+注册机（强悍的用户界面控件库） DotNetBar For Windows Forms 11.7.0.6 官方原版+注册机（强悍的用户界面控件库） 具体功能： 为office2010、windows7、Office 2007 Ribbon 控件提供了Black,Silver ,Blue三种配色方案，支持Windows Vista Glass、tab groups, ribbon hyper menus, multi-level KeyTips, complete Quick Access Toolbar (QAT)，支持Ribbon Menu Tabs Office 2007 Ribbon Bar 控件具有组合按钮，弹出按钮等 Office 2007 Super Tooltips控件具有18种颜色样式 支持停靠窗口自动隐藏，灵活的视图分割 支持具有Office 2007, VS.NET 2005, Office 2003/XP/2000,样式的Hyper-Menus 和工具条 支持具有Office 2007和2003样式的导航面板，支持扩展和收缩 SuperTab控件支持6种不同的样式，16种配色方案，支持颜色自定制 Explorer Bar控件使程序员可以创建出具有XP样式的Explorer Bar Tab-Strip控件具有九种预定义的样式，支持tabbed MDI ，颜色自定义 Side Bar 控件具有两种布局类型、5种不同的样式、18种预定义颜色方案，支持拖拉功能 BubbleBar 是一个灵活的toolbar控件 Stand alone Bar可以用于创建具有Office 2007 的状态条 可扩展的Splitter控件，Expandable Splitter控件能够直观的管理屏幕状态 可展开的Panel控件， Expandable Panel控件完整的支持office2007,2003的风格外观 多功能的Panel控件 Balloon/Alert控件用于传达一些重要的信息给最终用户 Wizard控件支持Wizard97规范，可以创建安装文件。 ButtonX 是一个卓越的按钮控件，ButtonX控件可以独立的控制下拉菜单、Office 2007, Office 2003, VS.NET 2005 和客户自定义颜色风格。 Color Picker控件可以创建具有Office 2007样式的下拉式颜色采集器，程序员也可以自定义颜色对话框 Item Panel使你可以创建出灵活的可以进行选择的多功能面板 具有Office 2007样式和外观的窗体 Office 2007样式的复选框和单选框 Progress bar控件可以用于创建具有Office 2007, Office 2003 和 VS.NET 2005的进度条 Office 2007样式的MessageBox 多功能Office 2007样式的TextBox 多功能Office 2007样式的下拉列表框 GroupPanel可以创建组合的TextBox文本框 Slider滚动条控件创建具有Office 2007样式的外观 具有Office 2007样式的ListViewEx控件，该控件不支持.NET Framework 1.0, 1.1. Office 2007样式的Label控件 DataGridViewX控件是一个表格控件，具有行、表头、滚动等功能，该控件不支持.NET Framework 1.0, 1.1. Date/Time Picker时间采集控件，可以用于创建具有Office 2007样式的日期选择控件 Month-Calendar控件让程序员可以创建月历控件 Double value input控件，用于控制值的输入，支持空值，货币值，小数，百分比 Integer value input控件可以控制整数的输入 Reflection Image控件为图片提供倒影功能 Reflection Label控件可以用于对Label提供倒影 水平和垂直滚动条控件可以创建Office 2007样式的滚动条 高级的可以指定格式输入的TextBox 多种功能的TreeView控件，支持拖拉功能，支持多选择 CrumbBar™ 控件 TextBoxDropDown控件 ComboBox树型控件可以用于在下拉列表框里创建树形控件 Rating控件 支持VS2013以及其他版本
C#

110,534

社区成员

642,576

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • Web++
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

让您成为最强悍的C#开发者

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

+ 用AI写文章