您的位置:程序门 -> .net技术 -> vb.net



數據綁定問題,急


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


數據綁定問題,急[已结贴,结贴人:ou108]
发表于:2007-01-20 16:15:57 楼主
我用新增更新刪除是采用的數據綁定
現在出現的問題是
頁面加載時,當頁面中的datagirdview中有數據時(順利綁定),更新數據表沒問題
當加載數據不到時(綁定不出錯誤),點擊新增按鈕,會出現錯誤!
  public   hrcurrentnanage   as   currencymanager
    hrcurrentnanage.addnew()

錯誤提示:並未將物件參考設定為物件的執行個體

以下為原代碼:
1   加載數據:
  public   dtload   as   new   datatable
dim   sqlstr   as   string   =   "select   top   10       bmbh   as   部門編號,bmmc   as   部門名稱   ,   sjbm   as   上級部門   ,     fzr   as   負責人   ,   bmgx   as   部門關系   from     hp_bmbh   where   bmbh= 'aa ' "     此為查不到數據的sql語句,綁定後新增會出問題,查得到數據的sql綁定後不會出問題
  dtload.clear()
                dtload   =   sqlEXECute.getdatatable(sqlstr)

                me.datagridview1.datasource   =   dtload
                if   dtload.rows.count   -   1   > =   0   then
                        dim   i   as   integer   =   0
                        for   i   =   0   to   dtload.columns.count   -   1
                                with   me.datagridview1.columns(i).defaultcellstyle
                                        .selectionbackcolor   =   color.blue
                                end   with
                        next
                        me.datagridview1.columns(4).width   =   450
                        me.datagridview1.readonly   =   true

                        'databinding()以下為綁定
  me.datagridview1.readonly   =   true

                me.comboboxdepno.databindings.clear()
                me.comboboxdepname.databindings.clear()
                me.textboxsjdep.databindings.clear()
                me.comboboxdepmanger.databindings.clear()
                me.textboxdepgx.databindings.clear()

                me.comboboxdepno.databindings.add( "text ",   dtload,   "部門編號 ")
                me.comboboxdepname.databindings.add( "text ",   dtload,   "部門名稱 ")
                me.textboxsjdep.databindings.add( "text ",   dtload,   "上級部門 ")
                me.comboboxdepmanger.databindings.add( "text ",   dtload,   "負責人 ")
                me.textboxdepgx.databindings.add( "text ",   dtload,   "部門關系 ")

                me.hrcurrentnanage   =   me.bindingcontext(dtload)

                end   if
发表于:2007-01-20 16:18:211楼 得分:0
在線等!誠心請教
发表于:2007-01-22 08:18:062楼 得分:0
高手幫忙
发表于:2007-01-22 08:33:253楼 得分:0
補充一點
把   if   dtload.rows.count   -   1   > =   0   then這個條件去掉也不行
會出現提示:索引超出范圍,必須為非負且小於集合的大小,參數名稱index
发表于:2007-01-22 09:36:124楼 得分:20
me.comboboxdepno.databindings.add(new   binding( "text ",   dtload,   "部门编号 "))


快速检索

最新资讯
热门点击