| 发表于: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 |
|
|
|
|