yanjunwang 发表于 2019-7-16 10:13:34

pb下TX active如何同时替换页眉和正文中相同字符域的值

pb下TX active如何同时替换页眉和正文中相同字符域的值

yanjunwang 发表于 2019-7-16 10:19:56

string ls_fielddata='hzxm',ls_datacurrent,ls_fieldtext='李四',ls_textCurrent
int li_field_last,li_field_find
li_field_last = 0
li_field_find = ole_text.Object.FieldNext(li_field_last, 0)
Do While li_field_find <> 0               
        ole_text.Object.FieldCurrent = li_field_find
        ls_textCurrent=ole_text.Object.FieldText
        ls_datacurrent=string(ole_text.Object.FieldData)
        If ls_fielddata = ls_datacurrent AND ls_textCurrent<>ls_fieldtext Then
                ole_text.Object.FieldText=ls_fieldtext
        Else
                li_field_last = li_field_find
        End If
        li_field_find = ole_text.Object.FieldNext(li_field_last, 0)
Loop
// 我在PB下这样写的，为什么只替换了页眉，没有替换正文

Richard.Ma 发表于 2019-7-16 10:33:44

你好，目前关于ActiveX平台的技术支持由TX厂商直接提供，请按照下面的方式来联系

https://www.textcontrol.com/external/new-ticket/

knower 发表于 2020-1-7 09:38:09

是不是你编辑区域设置成页眉了

Richard.Ma 发表于 2020-1-8 09:39:19

感谢回复

目前关于ActiveX平台的技术支持由TX厂商直接提供，请按照下面的方式来联系

https://www.textcontrol.com/external/new-ticket/
页: [1]
查看完整版本: pb下TX active如何同时替换页眉和正文中相同字符域的值