[求助]Replace不起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Replace不起作用

共有1274人关注过本帖树形打印复制链接主题：[求助]Replace不起作用

tkxffb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00

[求助]Replace不起作用 发帖心情

Post By：2023/6/28 22:39:00 [只看该作者]

请老师看一下，下面的代码，想用Replace进行替换，但不起作用，替换不成功

Dim t1 As String = e.Form.Controls("TextBox1").Text

Dim t2 As String = e.Form.Controls("comboBox2").Text

Dim jdb As String = CurrentTable.Current("街道办")

Dim zz As String = CurrentTable.Current("住址")

Dim drs As List(of DataRow) = DataTables("人员信息表").Select("[住址] Like '%" & t1 & "%'and [街道办] = '" & jdb & "'")

For i As Integer = drs.count - 1 To 1 Step - 1

drs(i)("住址") = drs(i)("住址").Replace( t1 ,t2 )

[此贴子已经被作者于2023/6/28 22:40:18编辑过]

tkxffb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：174 积分：1665 威望：0 精华：0 注册：2018/4/22 18:54:00

Post By：2023/6/28 23:05:00 [只看该作者]

上面的可以用，不麻烦老师了，谢谢

主题：[求助]Replace不起作用