查询的科目的格式为：科目编码.部门编码.个人编码.客户编码.供应商编码.项目编码
km="22310108.0101.0068.0088.hcjs.hchy"
如何转换成dm="22310108" and bmbm=="0101" and grbm=="0068" and khbm=="0088" and gybm=="hcjs" and xmbm=="hchy"
再比如km="286801.0108..yxgs"   
转换成  dm="286801" and bmbm=="0108" and khbm=="yxgs"
再比如km="286801"   则只转换成  dm="286801"

完善一下
km="2231058508.gcb1...hcjs.hchy"
cExp=""
ALINES(aExp,[dm="," and bmbm=="," and grbm=="," and khbm=="," and gybm=="," and xmbm=="], ",")
FOR i=1 TO ALINES(aKM,km,".")
IF LEN(ALLTRIM(aKM[i]))>0
  cExp=cExp+aExp[i]+aKM[i]
ENDIF
ENDFOR
cExp=cExp+["]
?cExp

谢谢各位版主，你们的答案都很精彩！

这是一个财务函数中的一个部分