有点甜老师，还需要请教下，为什么lsq 没有被替换成123456，哪里出错了Dim t As Table = CurrentTable
If t.Current Is Nothing Then Return False
If t.TopPosition < 0 Then Return False '如果选定区域不包括数据行
Dim it As Win.Data.ITable = SYS.Tables(t.Name)
For i As Integer = it.TopRow To it.BottomRow
Dim r As Win.Data.IRow = it.Rows(i)
If r.Visible = False Then Continue For
If r("SYS_Note").Contains(CurrentTable.Cols(CurrentTable.ColSel).Name) = True Then
Dim json As String = r("SYS_Note")
Dim jo As JObject = JObject.Parse(json)
jo(CurrentTable.Cols(CurrentTable.ColSel).Name) = "123456"
output.show(json)
Else
'待加代码
End If
Next
加好友 
发短信
Post By：2018/7/12 14:29:00 [显示全部帖子]
