已找到解决的原因

[ 本帖最后由 sdyswjlu 于 2011-8-5 21:19 编辑 ]

你挺放心的嘛，所有文档都贡献出来了？

*******把编辑框的内容变成双字节
this.Value=STRCONV(ALLTRIM(this.Value),1)&&&变成双字节后，删除全部空格

你用这个函数干什么？转换内码之后就无法储存到数据库中了啊，你数据库的字段不是用这种内码的，当然数据类型不匹配啦。只用ALLTRIM()就可以了。

b(15)在哪里出现的？

我看你的第一个问题，是想将英文字符和阿拉伯数字转换成汉字形式，那不是用这个函数的。

想实现：如果在ds_say表（表中储存当事人陈述中的相应字段的值）中已存在这一记录，则运时”当事人陈述表单“时，把已有记录体现在表单的界面上，若不改动edit1的内容，保存、打印正常，若改动edit1的内容，则出现数据不匹配，同时调试器中的指针指向select ds_say 这一句上；如果这一记录不存在，则输入数据，然后保存、打印正常。
1、“如果这一记录不存在，则输入数据，然后保存、打印正常”为什么能正常，只要是一修改就出现呢？
2、如果不把子edit1的内容转化为双字节，在取内容取出存入ds_say表中时可能出现乱码。必须保证每一次取一个汉字或是一个标点。
高手有没有更好的办法，请赐教

[ 本帖最后由 sdyswjlu 于 2011-8-5 11:34 编辑 ]

我是想把输入的汉字等转化成双字节，保证每一次能取一个汉字或是标点符号

在“当事人陈述表单”的保存按钮中

是这段代码吗？

********把编辑框内输入的内容，存入ds_say中（因为表格中有１５行，所以定义DIMENSION  b(15),
    *********80为ds_say中定义的字符数）
    DIMENSION  b(15)
    ********把编辑框内输入的内容，存ds_say中（因为表格中有15行，所以定义DIMENSION  b(15),
    *********80为ds_say中定义的字符数）
    MESSAGEBOX(LEN(thisform.edit1.Value),0+16)
    IF LEN(thisform.edit1.Value)<76.and.LEN(thisform.edit1.Value)=76
        b(1)=ALLTRIM(thisform.edit1.Value)
    ELSE
        b(1)=substr(thisform.edit1.Value,1,76)
        FOR  j=2 TO INT(LEN(thisform.edit1.Value)-76/80)+2
        
        b(j)=substr(thisform.edit1.Value,80*(j-1)-3,80)
        ENDFOR

    ENDIF

观望  拿分