首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

学习做一个报价系统解决方法

2012-05-13 
学习做一个报价系统鼠标点击mshflexgrid1中的内容,选择整行,并将对应的内容赋给mshflexgrid2,内容要一一对

学习做一个报价系统
鼠标点击mshflexgrid1中的内容,选择整行,并将对应的内容赋给mshflexgrid2,内容要一一对应
mshflexgrid1中的内容:价格 型号 保修
  200 XT 一年
  .....
  .....
点击在mshflexgrid2中显示: 型号 普通价 保修
  XT 200 一年
  ....
  .... 
本人是初学,也没分给,只抱着试试看的态度,谢谢

[解决办法]

VB code
private sub mshflexgrid1_click()    with mshflexgrid2        .rows=.rows+1        .textmatrix(.rows-1,0)=mshflexgrid1.textmatrix(mshflexgrid1.row,1)        .textmatrix(.rows-1,1)=mshflexgrid1.textmatrix(mshflexgrid1.row,0)        .textmatrix(.rows-1,2)=mshflexgrid1.textmatrix(mshflexgrid1.row,2)    end withend sub 

热点排行