没有, 都没动过
70台电脑
就2台日文版的更新不了,其他一切正常
另外还有一个很奇怪的问题
这个代码是在 receivedmessage 里面的
foxtable帮助中也有说明
Dim dr As DataRow
If msg.StartsWith("U#") Then '表示修改了某行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
dr.Load() '重新加载此行
End If
End If
ElseIf msg.StartsWith("A#") Then '表示增加了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2)) '查找这行是否已经追加
If dr Is Nothing Then '如果还没有追加进去
DataTables(pts(1)).AppendLoad("[_Identify] = " & pts(2))
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
这句帮助中是没有的, 在70多台的中文电脑中,都不用添加, 运行正常.
但在 日文版的电脑里面 必须要给 dr 赋值上去才行 , 否侧后边的代码 dr 会是nothing 的结果.
应该是要赋值的吧,为什么 中文版的能识别 dr 有值..........................
End If
End If
ElseIf msg.StartsWith("D#") Then '表示删除了行
Dim pts() As String = msg.Split("#")
If pts.Length = 3 Then
dr = DataTables(pts(1)).Find("[_Identify] = " & pts(2))
If dr IsNot Nothing Then
DataTables(pts(1)).RemoveFor("[_Identify] = " & pts(2)) '移除行
End If
End If
End If
[此贴子已经被作者于2016/11/12 11:11:19编辑过]
加好友 
发短信
Post By：2016/11/11 17:43:00 [只看该作者]
