li_colCount = dw_1.Describe("DataWindow.Column.Count")
for li_i =1 to li_colCount
if dw_1.describe("#"+string(li_i)+".key") = 'yes' then
li_keyColCount ++
ls_keyCol[li_keyColCount] = dw_1.describe(("#"+string(li_i)+".name")
end if
next
public function integer uf_split (string as_source, string as_splitprompt, ref string as_value[]);
//******************************************************************//
//function : 分隔出带分隔符号的字符串
//parm :
// 1. as_source ->带分隔符号的源字符串
// 3. as_splitprompt ->分隔符号
// 2. as_value[] ->目标字符串数组,按地址传送
//return : of no use
//author : hzh
//date : 2003.02.13
//*****************************************************************//
Integer i_arrayindex
Long l_start,l_end = 1,l_splitlen
String s_target
IF IsNull(as_source) OR as_source = '' THEN RETURN -1
IF IsNull(as_splitprompt) OR as_splitprompt = '' THEN RETURN -1
s_target = Trim(Lower(as_source))
l_splitlen = Len(as_splitprompt)
IF Right(s_target,l_splitlen) <> as_splitprompt THEN s_target += as_splitprompt