这段代码有问题，总是提示错误，是怎么回事
提示信息：从字符串“工程编号 = '20180702010'”到类型“Long”的转换无效
Dim gcbh As WinForm.TextBox = e.Form.Controls("工程编号")
Dim jypbh As WinForm.TextBox = e.Form.Controls("检验批编号")
Dim jyp As WinForm.DropDownBox = e.Form.Controls("DropBox2")
Dim h As DataRow = DataTables("无损_检验批").SQLFind("工程编号 = '"& gcbh.Value &"'" And "检验批 = '"& jyp.Value &"'")
If jypbh.Value = h("检验批编号")
Forms("增加行").Open
Else
MessageBox.Show("请重新选择检验批","提示",MessageBoxButtons.OK)
Return
End If
加好友 
发短信
Post By：2018/7/15 16:17:00 [显示全部帖子]
