以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问以下代码错在什么地方?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160269)

--  作者:hb8888
--  发布时间: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)


--  作者:hb8888
--  发布时间:2021/1/27 10:13:00
--  
后面的代码,有字典增加行的“_identify”作为键值,就有以下报错提示
“重载决策失败,因为没有可访问的“add”接受此数目的参数”

--  作者:有点蓝
--  发布时间:2021/1/27 10:16:00
--  
看不出什么问题。出错提示窗口显示的是什么事件有问题?贴出这个事件完整代码
--  作者:hb8888
--  发布时间:2021/1/27 10:23:00
--  
 不好意思,找到了,原来有一句代码忘记删了。