[发明专利]一种对多行数值列存储成一行的方法

摘要

本发明提供一种对多行数值列存储成一行的方法，该方法是将存储数值列的字段数据结构定义为varchar或text非数值型类型，然后通过程序解析为用“-”和“，”连接数值的表意串存储在数据库中。

主权项

1、一种对多行数值列存储成一行的方法，其特征在于，将存储数值列的字段数据结构定义为varchar或text非数值型类型，然后通过程序解析为用“-”和“，”连接数值的表意串存储在数据库中，将多行数值表生成解析为一行表意串的主要程序组件如下：String vsstr，vsstr2Long vlrow1，vlrow2，vlrow，vli，vlj，vlnum，vljh1，vljh2，vlm，vlnLong vlrowcountvlrowcount＝dw_1.RowCount()IF vlrowcount＝1THENvljh1＝dw_1.GetItemNumber(1，″f_wcjh″)mle_1.Text＝String(vljh1)RETURN 1END IFFOR vli＝1TO vlrowcountvljh1＝dw_1.GetItemNumber(vli，″f_wcjh″)vln＝0vlm＝vli+1FOR vlj＝vlm TO vlrowcountvln＝vln+1vljh2＝dw_1.GetItemNumber(vlj，″f_wcjh″)IF vljh2<>(vljh1+vln)AND vln>1THEN//处理开始是连续号的情况vsstr＝vsstr+String(vljh1)+’-’+String(vljh1+vln-1)+’，’GOTO a //跳出循环再次开始ELSEIF vljh2<>(vljh1+vln)AND vln＝1THEN//处理开始是断号的情况vsstr＝vsstr+String(vljh1)+’，’GOTO aELSEIF vljh2＝(vljh1+vln)AND vln>＝1 AND vlj＝vlrowcount THENvli＝vljvsstr＝vsstr+String(vljh1)+’-’+String(vljh2)+’，’END IFNEXTa:vli＝vljIF vli＝vlrowcount THENvljh2＝dw_1.GetItemNumber(vli，″f_wcjh″)vsstr＝vsstr+String(vljh2)+’，’ELSE//第一次循环没有结束，则继续处理后续数据，同时开始点调整为vlj-1vli＝vlj-1END IFNEXT。