回 帖 发 新 帖 刷新版面

主题:并未将物体参考设定为物件的执行个体 是什么意思啊?

请高手指点

回复列表 (共5个回复)

沙发

能说说你的情况吗?什么时候,做什么样的事出现的!

板凳

谢谢,是这样的
我用的是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 楼

该情况反应你要执行的物件是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 楼


是的,有什么帮忙可以给他附值了?
谢谢

还有在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 楼


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
我只输入一行,保存一行,是正确的
输入两行或多行数据保存时就是这样
麻烦大家

谢谢

我来回复

您尚未登录,请登录后再回复。点此登录或注册