以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数值转换问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42073)
--  作者：hzcaqjf
--  发布时间：2013/11/3 17:21:00
--  [求助]数值转换问题

遍历表A中每一单元格时,遇到数值型数据时,想转换为字符型:

Dim st,py As String
st = e.sender.text.ToUpper
If st > "" Then
    For Each dc As DataCol In DataTables("表A").DataCols
        For Each dr As DataRow In DataTables("表A").DataRows
            py = GetPy(dr(dc.name),True)
            If dc.IsNumeric Then
            dr(dc.name) = CStr(dr(dc.name))  

           If dr(dc.name).Indexof(st)> -1 OrElse py.Indexof(st)> -1 Then  \'错误代码行

              ......

 

红色部份代码应该怎样写?

[此贴子已经被作者于2013-11-3 19:08:15编辑过]
--  作者：有点甜
--  发布时间：2013/11/3 19:29:00
--  
 改成

\'dr(dc.name) = CStr(dr(dc.name))  

If CStr(dr(dc.name)).Indexof(st) > -1 OrElse py.Indexof(st)> -1 Then  \'错误代码行
--  作者：程兴刚
--  发布时间：2013/11/3 19:36:00
--  
逻辑问题，您的这个代码完全没有意义【dr(dc.name) = CStr(dr(dc.name)) 】！删除或加上它，结果依旧一样！
--  作者：hzcaqjf
--  发布时间：2013/11/3 19:51:00
--  

问题已解决

dr(dc.name) = CStr(dr(dc.name))  

If dr(dc.name).Indexof(st)> -1 OrElse py.Indexof(st)> -1 Then  \'错误代码行

改为:
dim yu as string

yu = CStr(dr(dc.name))

If yu.Indexof(st)> -1 OrElse py.Indexof(st)> -1 Then

 

谢谢有点甜老师和程老师

 

 

[此贴子已经被作者于2013-11-3 20:32:39编辑过]