此主题相关图片如下:image 1.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/20194228115482306.jpg)
此主题相关图片如下:image 2.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2019-4/20194228115425576.jpg)
ComboBox1的KeyDown代码如下:
If e.keycode = 13 Then
Dim xlh As WinForm.ComboBox= e.Form.Controls("ComboBox1")
Dim dc As DataRow =DataTables("供货单位").Find("代码='" & xlh.text &"'")
If dc IsNot Nothing Then
xlh.text=dc("供货单位")
Else
MessageBox.Show("没有找到该供货单位! 无法录入!", "提示")
End If
End If
麻烦老师帮看看这个代码哪里有问题,谢谢
[此贴子已经被作者于2019/4/22 8:17:58编辑过]