Question

如何通过赋值方式直接修改treegrid中的行数据

Answer 1

如何实现将vsflexgrid中修改的数据反馈到数据库中？PrivateSubvsflexgrid1_AfterEdit(ByValRowAsLong,ByValColAsLong)rs.MoveFirst'//rs为记录集rs.Movevsflexgrid1.Row-1rs.EditIfvsflexgrid1.text=""Thenrs.Fields(vsflexgrid1.Col-1)=NullElsers.Fields(vsflexgrid1.Col-1)=vsflexgrid1.textEndIfrs.Updateendsub一、增加记录使用for来循环表格行。fori=1togrid1.rows-1withrs.addnew.fileds(o)=grid1.textmariy(i,0).fileds(1)=grid1.textmariy(i,1).fileds(2)=grid1.textmariy(i,2).fileds(3)=grid1.textmariy(i,3).updateendwithnext二、添加行　　grid1.additemrow三、删除当前行　　withgrid1i=.row.removeitemiendwith四、要显示下拉框，可以使用vsflexgrid中列绑定功能　　grid1.colcombolist(1)＝grid.buildcombolist(rs,"商品名称")跟楼上的相比,仅仅是datamode不一样(2-flexDMBoundBatch)但这样做的优势是非常明显的:可以撤销包括新增删除在内的所有操作,按保存键才写入数据库PrivateSubCmdDel_Click()Iffg.Row0Thenfg.RemoveItem(fg.Row)fg.RefreshEndSubPrivateSubCmdAdd_Click()OnErrorResumeNextAdodc1.Recordset.AddNewIfErr.Number0ThenMsgBoxErr.DescriptionEndSubPrivateSubCmdUpdate()Adodc1.Recordset.UpdateBatchadAffectAllChaptersEndSubPrivateSubCmdCancel_Click()Adodc1.Recordset.CancelBatchfg.DataRefreshEndSubPrivateSubForm_Load()Adodc1.ConnectionString="FILENAME="&App.Path&"\conn.dsn"Adodc1.LockType=adLockBatchOptimisticAdodc1.RecordSource="Your_Tablename"Setfg.DataSource=Adodc1EndSub1、打印vsflexgrid可以使用vsprinter打印控件。跟vsflexgrid配套使用效果不错。2、导出EXECL，可以使用grid.savegrid的方法。用savegrid的方法，在导出execl时，如果碰到类似于银行帐号的列如：“6465456665”，导到EXECL中就不这样显示了，这个问题还不知道怎么解决？？另外也可以写代码（这个方法比较实用，但慢一些）：DimExcelAppAsExcel.ApplicationSetexcelApp=NewExcel.ApplicationOnErrorResume