[發(fā)明專利]一種對多行數(shù)值列存儲成一行的方法

無效

• 申請?zhí)枺?/td>: 200910018623.0
• 申請日: 2009-09-07
• 公開（公告）號: CN101645076A
• 公開（公告）日: 2010-02-10
• 發(fā)明（設(shè)計(jì)）人: 王波
• 申請（專利權(quán)）人: 浪潮集團(tuán)山東通用軟件有限公司
• 主分類號: G06F17/30
• 分類號: G06F17/30
• 代理公司: 暫無信息
• 代理人: 暫無信息

1、一種對多行數(shù)值列存儲成一行的方法，其特征在于，將存儲數(shù)值列的字段數(shù)據(jù)結(jié)構(gòu)定義為varchar或text非數(shù)值型類型，然后通過程序解析為用“-”和“，”連接數(shù)值的表意串存儲在數(shù)據(jù)庫中，將多行數(shù)值表生成解析為一行表意串的主要程序組件如下：

?????String?vsstr，vsstr2

?????Long?vlrow1，vlrow2，vlrow，vli，vlj，vlnum，vljh1，vljh2，vlm，vln

?????Long?vlrowcount

????vlrowcount＝dw_1.RowCount()

????IF?vlrowcount＝1THEN

??????vljh1＝dw_1.GetItemNumber(1，″f_wcjh″)

??????mle_1.Text＝String(vljh1)

??????RETURN?1

????END?IF

FOR?vli＝1TO?vlrowcount

????vljh1＝dw_1.GetItemNumber(vli，″f_wcjh″)

????vln＝0

????vlm＝vli+1

???????FOR?vlj＝vlm?TO?vlrowcount

???????vln＝vln+1

???????vljh2＝dw_1.GetItemNumber(vlj，″f_wcjh″)

???????IF?vljh2<>(vljh1+vln)AND?vln>1THEN//處理開始是連續(xù)號的情況

??????????vsstr＝vsstr+String(vljh1)+’-’+String(vljh1+vln-1)+’，’

??????????GOTO?a??????????????????????????????????//跳出循環(huán)再次開始

???????ELSEIF?vljh2<>(vljh1+vln)AND?vln＝1THEN//處理開始是斷號的情況

??????????vsstr＝vsstr+String(vljh1)+’，’

??????????GOTO?a

???????ELSEIF?vljh2＝(vljh1+vln)AND?vln>＝1?AND?vlj＝vlrowcount?THEN

??????????vli＝vlj

??????????vsstr＝vsstr+String(vljh1)+’-’+String(vljh2)+’，’

???????END?IF

??????????NEXT

????a:

????vli＝vlj

????IF?vli＝vlrowcount?THEN

???????vljh2＝dw_1.GetItemNumber(vli，″f_wcjh″)

???????vsstr＝vsstr+String(vljh2)+’，’

ELSE//第一次循環(huán)沒有結(jié)束，則繼續(xù)處理后續(xù)數(shù)據(jù)，同時(shí)開始點(diǎn)調(diào)整為vlj-1

???????vli＝vlj-1

????END?IF

NEXT。