以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问以下代码错在什么地方? (http://foxtable.com/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 -- 不好意思,找到了,原来有一句代码忘记删了。 |