从字符串“"转换输入整数无效 [英] 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屋！