If textbox2.Text <> "" Then
Try
If textbox2.Text = mydataset.Tables("a").Rows.Find(textbox2.Text).ToString Then End If
Catch ex As Exception
MsgBox("对不起您输入的商品编号不存在,请核对后重新输入..", MsgBoxStyle.DefaultButton1, "温馨提示")
End TryElseIf textbox2.Text = "" Then
MsgBox("请刷条码或输入商品编码!", MsgBoxStyle.DefaultButton1, "温馨提示")
myconn.Close()End If
怎么老有错误啊????老弹出msgbox ,理论上对呀,textbox2中填写数据库中有的数据怎么也不对???????????????????
textbox2.Text = mydataset.Tables("a").Rows.Find(textbox2.Text).ToString有问题吗?
还是其他的什么问题?
Try
If textbox2.Text = mydataset.Tables("a").Rows.Find(textbox2.Text).ToString Then End If
Catch ex As Exception
MsgBox("对不起您输入的商品编号不存在,请核对后重新输入..", MsgBoxStyle.DefaultButton1, "温馨提示")
End TryElseIf textbox2.Text = "" Then
MsgBox("请刷条码或输入商品编码!", MsgBoxStyle.DefaultButton1, "温馨提示")
myconn.Close()End If
怎么老有错误啊????老弹出msgbox ,理论上对呀,textbox2中填写数据库中有的数据怎么也不对???????????????????
textbox2.Text = mydataset.Tables("a").Rows.Find(textbox2.Text).ToString有问题吗?
还是其他的什么问题?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货