以下的代码我想实现在DataGridView1上直接进行添加,修改操作,,添加修改之后就保存到数据库中去,,,
为什么不能实现啊
Dim sSelect As String
Dim Form_ID As String
Dim sObjectID As String
Dim str_ID() As String
str_ID = Split(ComboBox1.Text, "-")
Form_ID = str_ID(0)
sObjectID = ComboBox2.Text '在DataGridView1要显示的数据
If CheckBox1.Checked = True Then
sSelect = "select MemberID,FormID,ParentID,ObjectID, TableAlias, LineSeq, ConditionType, VariableType, SourceAlias, Variable, IsPassingValue, ConditionMode" + _
" from dicFormObjectCond where FormID = '" & Form_ID & "'"
Else
sSelect = "select MemberID,FormID,ParentID,ObjectID, TableAlias, LineSeq, ConditionType, VariableType, SourceAlias, Variable, IsPassingValue, ConditionMode" + _
" from dicFormObjectCond where ObjectID = '" & sObjectID & "' AND formid='" + Form_ID + "'"
End If Dim TB As DataTable
Dim BD As SqlCommandBuilder
Dim da As SqlDataAdapter
Dim bb As BindingSource DBopen()
da = New SqlDataAdapter(sSelect, Conn)
BD = New SqlCommandBuilder(da)
TB = New DataTable()
bb = New BindingSource()
TB.Locale = System.Globalization.CultureInfo.InvariantCulture
da.Fill(TB)
bb.DataSource = TB ' datagridviewt()
DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnMode.AllCellsExceptHeader) ' da.SelectCommand.CommandText
da.Update((TB)bb.DataSource) '这句好像还有问题
为什么不能实现啊
Dim sSelect As String
Dim Form_ID As String
Dim sObjectID As String
Dim str_ID() As String
str_ID = Split(ComboBox1.Text, "-")
Form_ID = str_ID(0)
sObjectID = ComboBox2.Text '在DataGridView1要显示的数据
If CheckBox1.Checked = True Then
sSelect = "select MemberID,FormID,ParentID,ObjectID, TableAlias, LineSeq, ConditionType, VariableType, SourceAlias, Variable, IsPassingValue, ConditionMode" + _
" from dicFormObjectCond where FormID = '" & Form_ID & "'"
Else
sSelect = "select MemberID,FormID,ParentID,ObjectID, TableAlias, LineSeq, ConditionType, VariableType, SourceAlias, Variable, IsPassingValue, ConditionMode" + _
" from dicFormObjectCond where ObjectID = '" & sObjectID & "' AND formid='" + Form_ID + "'"
End If Dim TB As DataTable
Dim BD As SqlCommandBuilder
Dim da As SqlDataAdapter
Dim bb As BindingSource DBopen()
da = New SqlDataAdapter(sSelect, Conn)
BD = New SqlCommandBuilder(da)
TB = New DataTable()
bb = New BindingSource()
TB.Locale = System.Globalization.CultureInfo.InvariantCulture
da.Fill(TB)
bb.DataSource = TB ' datagridviewt()
DataGridView1.AutoResizeColumns(DataGridViewAutoSizeColumnMode.AllCellsExceptHeader) ' da.SelectCommand.CommandText
da.Update((TB)bb.DataSource) '这句好像还有问题
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货