专家坐堂-从字符 “” 串到 “Integer” 的转换无效Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从字符 “” 串到 “Integer” 的转换无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196150)

--  作者：edisontsui
--  发布时间：2025/4/2 16:07:00
--  从字符 “” 串到 “Integer” 的转换无效

Dim Book As New XLS.Book("C:\\施耐德订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("销售单").StopRedraw()
Dim nms() As String = {"", "", "", "销售单号", "销售单行号", "产品代号", "", "", "销售数量", "要求交货日期", "", "", "", "", "", ""}

For n As Integer = 1 To Sheet.Rows.Count - 1
\'msgbox(1)
Dim xsdh As String = sheet(n, 3).Text \'销售单号
Dim xsdhh As String = sheet(n, 4).Text \'销售单行号
Dim xsdhh1 As Integer = CInt(xsdhh) \'销售单行号
Dim cpdh As String = sheet(n, 5).Text \'产品代号
Dim xssl As String = sheet(n, 8).Text \'销售数量
Dim xssl2 As Integer = CInt(xssl) \'销售数量
Dim jhrq As Date \'要求交货日期
If Date.TryParse(sheet(n, 9).Text, jhrq) = False Then
output.show("日期值无法转换")
End If
\'msgbox(2)

Dim drd As DataRow = DataTables("物料字典").SQLFind("物料编号 = \'" & cpdh & "\'") \'2025/4/1 更改
If drd IsNot Nothing Then
\'msgbox(3)
\'If drd("细分一") <> "侧盖板组件" Then \'2025/4/1 取消
Dim dr As DataRow = DataTables("销售单").SQLFind("销售单号 = \'" & xsdh & "\' And 销售单行号 = \'" & xsdhh1 & "\'")
If dr IsNot Nothing Then
Else
Dim dr1 As DataRow = DataTables("销售单").AddNew()
dr1("销售单号") = xsdh
dr1("销售单行号") = xsdhh1
dr1("客户代号") = "CS0001"
dr1("产品代号") = cpdh
dr1("要求交货日期") = jhrq
dr1("销售数量") = xssl2
dr1.save
End If
\'End If
End If
Next
Tables("销售单").ResumeRedraw()
Tables("销售单").save

老师，我上面那个按钮里面的代码，总是出现从字符 “” 串到 “Integer” 的转换无效，输入字符串的格式不正确这个提示。请问是哪里的问题呢？谢谢。

--  作者：有点蓝
--  发布时间：2025/4/2 16:14:00
--
比如销售数量这种没有数据下面代码就会出错
Dim xssl2 As Integer = CInt(xssl) \'销售数量

可以改为
Dim xssl2 As Integer = 0
integer.TryParse(xssl,xssl2 )

--  作者：edisontsui
--  发布时间：2025/4/2 17:21:00
--
谢谢。