从字符串“"转换输入整数无效 [英] conversion from string "" to type integer is not valid
问题描述
Em在vb.net中设计一个程序,并以2013为后端,因此我想使用保存在条形码1的文本框1中的条形码在文本框中显示某个产品的信息.指出的错误;对话
Em designing a programme in vb.net and access 2013 as the backend,so i want to display information of a certain product in textboxes using its barcode that is typed in the textbox1 that holds the barcode,but em getting an error that states that ; conversi
<代码样式="margin:0px; padding:0px; border:0px; font-size:13px; font-family:Consolas,Menlo,Monaco,'Lucida Console','Liberation Mono','DejaVu Sans Mono','Bitstream Vera Sans Mono','Courier New',等宽,sans-serif; white-space:inherit>昏暗为新的postestDataSetTableAdapters.itemsTableAdapter 昏暗的tb = ta.GetDataBybarcode(TextBox1.Text) 如果tb.Rows.Count = 0则 TextBox2.Text =" TextBox3.Text =" TextBox4.Text =" Button1.Enabled =假 退出子 万一 Button1.Enabled =真 Dim r as postestDataSet.itemsRow = tb.Rows(0) TextBox2.Text = r.itemname TextBox3.Text = r.buyprice TextBox4.Text = r.saleprice Button1.Tag = r
Dim ta As New postestDataSetTableAdapters.itemsTableAdapter
Dim tb = ta.GetDataBybarcode(TextBox1.Text)
If tb.Rows.Count = 0 Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Button1.Enabled = False
Exit Sub
End If
Button1.Enabled = True
Dim r As postestDataSet.itemsRow = tb.Rows(0)
TextBox2.Text = r.itemname
TextBox3.Text = r.buyprice
TextBox4.Text = r.saleprice
Button1.Tag = r
推荐答案
将其作为新的postestDataSetTableAdapters.itemsTableAdapter
昏暗的tb = ta.GetDataBybarcode(TextBox1.Text)
如果tb.Rows.Count = 0则
TextBox2.Text ="
TextBox3.Text ="
TextBox4.Text ="
Button1.Enabled =假
退出子
万一
Button1.Enabled =真
Dim r as postestDataSet.itemsRow = tb.Rows(0)
TextBox2.Text = r.itemname
TextBox3.Text = r.buyprice
TextBox4.Text = r.saleprice
Button1.Tag = r
Dim ta As New postestDataSetTableAdapters.itemsTableAdapter
Dim tb = ta.GetDataBybarcode(TextBox1.Text)
If tb.Rows.Count = 0 Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Button1.Enabled = False
Exit Sub
End If
Button1.Enabled = True
Dim r As postestDataSet.itemsRow = tb.Rows(0)
TextBox2.Text = r.itemname
TextBox3.Text = r.buyprice
TextBox4.Text = r.saleprice
Button1.Tag = r
我的猜测是这行"Dim tb = ta.GetDataBybarcode(TextBox1.Text)"错误.您不必费心执行任何错误检查,因为TextBox可能为空或包含非数字数据.
My guess will be this line "Dim tb = ta.GetDataBybarcode(TextBox1.Text)" errors. Which you do not bother performing any error checking either as a TextBox could be empty or contain non-numeric data.
Dim barcodeInt As Integer = 0
If Int32.TryParse(TextBox1.Text, barcodeInt) = False Then Exit Sub
Dim tb = ta.GetDataBybarcode(barcodeInt)
这篇关于从字符串“"转换输入整数无效的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!