遍历表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编辑过]