Foxtable(狐表)用户栏目专家坐堂 → 请问以下代码错在什么地方?


  共有2540人关注过本帖平板打印复制链接

主题:请问以下代码错在什么地方?

帅哥哟,离线,有人找我吗?
hb8888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:392 积分:2927 威望:0 精华:0 注册:2020/1/22 20:48:00
请问以下代码错在什么地方?  发帖心情 Post By:2021/1/27 10:08:00 [只看该作者]

大师:请问以下代码错在什么哪里?为什么红色代码加上就不行?

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)


 回到顶部