主题:并未将物体参考设定为物件的执行个体 是什么意思啊?
liaowenbo198
[专家分:0] 发布于 2007-06-18 11:56:00
请高手指点
回复列表 (共5个回复)
沙发
longlong16 [专家分:10670] 发布于 2007-06-20 12:52:00
能说说你的情况吗?什么时候,做什么样的事出现的!
板凳
liaowenbo198 [专家分:0] 发布于 2007-06-21 15:27:00
谢谢,是这样的
我用的是VISAUL BASIC 2005
我用的是Ultragrid
表格
我要附给他的某一列值为:1.00
我用语句写
rivate Sub frmpxjl_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Me.MdiParent = MDIParent1
ugridcombo()
Me.UltraGrid1.DisplayLayout.Bands(0).Columns("ygxm").CellClickAction = Infragistics.Win.UltraWinGrid.CellClickAction.RowSelect
'Me.UltraGrid1.DisplayLayout.Bands(0).Columns("gszz").CellClickAction = Infragistics.Win.UltraWinGrid.CellClickAction.RowSelect
'Me.UltraGrid1.DisplayLayout.Override.AllowAddNew = Infragistics.Win.UltraWinGrid.AllowAddNew.TemplateOnBottom
ugridformat()
ugridval()
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Information, "try")
End Try
End Sub
Private Sub ugridval()
Try
Me.UltraGrid1.DisplayLayout.Override.AllowAddNew = Infragistics.Win.UltraWinGrid.AllowAddNew.FixedAddRowOnBottom
Me.UltraGrid1.DisplayLayout.Override.AllowDelete = Infragistics.Win.DefaultableBoolean.True
Me.UltraGrid1.DisplayLayout.Override.AllowUpdate = Infragistics.Win.DefaultableBoolean.True
[color=FF0000] Me.UltraGrid1.ActiveRow.Cells("pxfy").Value = "0.00"
Me.UltraGrid1.ActiveRow.Cells("qtfy").Value = "0.00"
Me.UltraGrid1.ActiveRow.Cells("grzf").Value = "0.00"[/color] Me.UltraGrid1.ActiveRow.Cells("gszz").Value = Val(Me.UltraGrid1.ActiveRow.Cells("pxfy").Value) + Val(Me.UltraGrid1.ActiveRow.Cells("qtfy").Value)
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Information, "try")
End Try
End Sub
:就提示这样的错误
请高手指点一下
高粉感谢
3 楼
longlong16 [专家分:10670] 发布于 2007-06-22 10:32:00
该情况反应你要执行的物件是null,或者不存在,可以设置断点,看下,
Me.UltraGrid1.ActiveRow.Cells("pxfy").Value = "0.00"
Me.UltraGrid1.ActiveRow.Cells("qtfy").Value = "0.00"
Me.UltraGrid1.ActiveRow.Cells("grzf").Value = "0.00"
是不是null
4 楼
liaowenbo198 [专家分:0] 发布于 2007-06-22 14:31:00
是的,有什么帮忙可以给他附值了?
谢谢
还有在ultragrid 里面有个checkbox,我在保存到数据库里的时候
怎么把他变成1和0
我的数据库该字段类型为bit
我是这样写的:
me.ultragrid1.actiovrow.cell("sftg").active=ture
sql="insert into biao1 (sftg) values('1')"
else
sql="insert into biao1 (sftg) values('0')"
我有两行数据,第一行为1
第二行为0
但运行后就,全部是保存到数据库里全部0
请高手指点
5 楼
liaowenbo198 [专家分:0] 发布于 2007-06-22 15:43:00
Dim drowa() As DataRow = CType(Me.UltraGrid1.DataSource, DataTable).Select("1=1")
For i As Integer = 0 To drowa.Length - 1
Dim ygbh As String = drowa(i).Item("ygbh")
Dim ygxm As String = drowa(i).Item("ygxm")
Dim cj As String = drowa(i).Item("cj")
Dim sftg As String = drowa(i).Item("sftg")
Dim jspy As String = drowa(i).Item("jspy")
Dim pxfy As String = drowa(i).Item("pxfy")
Dim qtfy As String = drowa(i).Item("qtfy")
Dim grzf As String = drowa(i).Item("grzf")
Dim gszz As String = drowa(i).Item("gszz")
Dim ckh As String = drowa(i).Item("gszz")
MsgBox(Me.UltraGrid1.ActiveRow.Cells("sftg").Value)
If Me.UltraGrid1.ActiveRow.Cells("sftg").Value = True Then
sql1 = "insert into frm_pxjlxxb (jhh,kcmc,ygbh,ygxm,cj,sftg,jspy,pxfy,qtfy,grzf,gszz,ckh) values('" & Me.UltraTextEditor1.Text & "','" & Me.UltraTextEditor2.Text & "','" & ygbh & "','" & ygxm & "','" & cj & "',1,'" & jspy & "','" & pxfy & "','" & qtfy & "','" & grzf & "','" & gszz & "','" & ckh & "')"
exec1(sql1)
Else
sql1 = "insert into frm_pxjlxxb (jhh,kcmc,ygbh,ygxm,cj,sftg,jspy,pxfy,qtfy,grzf,gszz,ckh) values('" & Me.UltraTextEditor1.Text & "','" & Me.UltraTextEditor2.Text & "','" & ygbh & "','" & ygxm & "','" & cj & "',0,'" & jspy & "','" & pxfy & "','" & qtfy & "','" & grzf & "','" & gszz & "','" & ckh & "')"
exec1(sql1)
End If
Next
MsgBox("添加成功", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, 系统提示")
我的grid中的两行数据,第一行CHECKBOX=TRUE
第二行CHECKBOX=FLASE
结果两行数据保存到数据库里
都是=FLASE
MSGBOX读出来的两个也是FLASE
我只输入一行,保存一行,是正确的
输入两行或多行数据保存时就是这样
麻烦大家
谢谢
我来回复