大师：请问以下代码错在什么哪里？为什么红色代码加上就不行？
Dim ttt1 As DataTable
Dim cm-dt As New S-QLCommand
cmdt.ConnectionName = zgsconn
cmdt.CommandText = "S-ELECT [_identify],[_sortkey],pzzb142,pzzb8,pzzb9,pzzb12,pzzb106,pzzb43,pzzb6 From {dtpzzb}"
ttt1 = cmdt.E-xecuteReader(True)
'-------------负值移位并保存-----------
For Each tttr As DataRow In ttt1.DataRows
If tttr("pzzb8") < 0 Then
tttr("pzzb9") = -tttr("pzzb8")
tttr("pzzb8") = 0
End If
If tttr("pzzb9") < 0 Then
tttr("pzzb8") = -tttr("pzzb9")
tttr("pzzb9") = 0
End If
Next
ttt1.save
Dim t1 As DataTable
Dim cmd As New S-QLCommand
cmd.ConnectionName = zgsconn
cmd.CommandText = "S-ELECT [_identify],[_sortkey],pzzb142,pzzb8,pzzb9,pzzb12,pzzb106,pzzb43,pzzb6 From {dtpzzb}"
t1 = cmd.E-xecuteReader(True)
加好友 
发短信
Post By：2021/1/27 10:08:00 [只看该作者]
