错误查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：2.0.50727.8784
Foxtable 版本：2018.3.9.1
错误所在事件：
详细错误信息：
',' 附近有语法错误。

这面这种错误，怎么查找

软件在发布后运行过程过弹出

[此贴子已经被作者于2018/5/23 10:34:37编辑过]

只有这两种语句

cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values('" & nm & "','" & pf & "',1)"

cmd.CommandText = cmd.CommandText & UserName & "','" & UserName1 & "','" & UserGroup & "','" & Password & "','" & juese & "','" & ygbh & "' )"

If e.DataCol.Name = "项目名称" Then

If e.DataRow.IsNull("项目名称") Then

Dim s As String = e.DataRow("备注")

If s.Length > 10 Then '判断字符串长度

Dim s1 As String = s.SubString(2) '删除前面的2个字符

Dim sps() As Char = {"(","投保金","工程款"} '定义数组

Dim Names() As String = s1.Split(sps) '分割数组

Dim xmmc As String = Names(0) '取分割后的第一个字段

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText ="s elect * from {jy_投标立项} where 1=2" '不加载

Dim dt As DataTable=cmd.ExecuteReader()

For Each r As DataRow In e.DataTable.DataRows

Dim dr As DataRow = dt.Find("项目名称='" & xmmc & "'")

If dr IsNot Nothing Then

r("项目名称") = dr("项目名称")

r("简码") = dr("简码")

r.Save

End If

红色代码，后台查找，无效，因字符串长度不相等

xmmc 字符串只有项目名称的一部份，怎么查找取值

Dim url As String = "https://image.baidu.com/search/detail?ct=503316480&z=0&ipn=d&word=%E5%A2%9E%E5%80%BC%E7%A8%8E%E6%99%AE%E9%80%9A%E5%8F%91%E7%A5%A8&step_word=&hs=0&pn=10&spn=0&di=89320&pi=0&rn=1&tn=baiduimagedetail&is=0%2C0&istype=2&ie=utf-8&oe=utf-8&in=&cl=2&lm=-1&st=-1&cs=1982561268%2C3776389616&os=264236788%2C3321030083&simid=0%2C0&adpicid=0&lpn=0&ln=969&fr=&fmq=1566724204242_R&fm=result&ic=&s=undefined&hd=&latest=&copyright=&se=&sme=&tab=0&width=&height=&face=undefined&ist=&jit=&cg=&bdtype=0&oriquery=&objurl=http%3A%2F%2Fn.sinaimg.cn%2Fsinacn%2F20171123%2F56e8-fynwxun0209265.jpg&fromurl=ippr_z2C%24qAzdH3FAzdH3Fv3_z%26e3Bftgw_z%26e3Bv54_z%26e3BvgAzdH3Fw6ptvsjfAzdH3FetjoAzdH3Fmncml98m8bAzdH3F80wj0nkndaa8aacagc&gsm=0&rpstart=0&rpnum=0&islist=&querylist=&force=undefined"

Dim hc As New HttpClient("https://ocrapi-invoice.taobao.com/ocrservice/invoice?url=" & url & "'")

hc.Headers.Add("Authorization","APPCODE e16f08806ef642ccaab6b29bcb216627")

Dim jo As JObject = Jobject.Parse(hc.GetData)

Output.Show(jo.ToString)

老是出现400错误

以下是接口说明

https://market.aliyun.com/products/57124001/cmapi027758.html?spm=5176.2020520132.101.3.36e37218nIj6jC#sku=yuncode2175800000

9楼

hc.Content = 被屏蔽了

'获取籍贯

Dim sfz As String = e.DataRow("身份证号码")

If sfz.Length > 10 Then

Dim jgbm As String = sfz.Remove(6) '获取6位编码

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "se lect * from {RS_籍贯编码} where 1=2"

Dim dt As DataTable = cmd.ExecuteReader()

Dim dr As DataRow = dt.sqlFind("籍贯编码 ='" & jgbm & "'")

If dr IsNot Nothing Then

e.DataRow("籍贯") = dr("籍贯")

End If

感觉代码没错，为什么不能取值呢

主题：错误查找