主题：求助 一个控件值改变后,另一个控件的值自动从表中提取

各位老师; 我在 生产任务单号 控件的 ValueChanged 事件中写下如下代码

 

Dim cmb As WinForm.TextBox = e.Sender
Dim str As String = e.Form.Controls("生产任务单号").Value
Dim aa,bb As String
aa = DataTables("SNT业务定单").GetComboListString("产品型号", "生产任务单号 = '" & str & "'")
bb = DataTables("业务定单").GetComboListString("成品型号", "生产任务单号 = '" & str & "'")

If aa IsNot Nothing Then
    e.Form.Controls("a").Value = aa
Elseif bb IsNot Nothing
    e.Form.Controls("a").Value = bb
Else
    MessageBox.Show(" 生产任务单号有错误,请检查!", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
End If

 

控件  a 的值并不会自动从表 中提取,,,是那儿出了问题呢?

 

 

e.Form.Controls("a").Value =  aa   改为： e.Form.Controls("a").ComboList = aa 

老兄,A控件是 TextBox类型的控件哦...行吗?

 

不行，要组合框控件才行。

为何要用TextBox呢？  将属性中多行文本 ： true   后，再用 e.Form.Controls("a").Value =  aa  

这样的效果？  ：

此主题相关图片如下：dhwb.gif

此主题相关图片如下：1.png

 

我是想再 在生产任务单控件 中输入 内容后, 控件A自动引用定单表中的成品型号,,,控件A然后根据成品型号,自动对BOM清单进行筛选.

 

定单太多了不太好单选,,所以用输入的方式...

应该不复杂， 做个例子上来吧。  很少有人能凭空写代码的，就像下盲棋一下，那要深厚的功底的···

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:控件自动取值.zip

 

其怪,我刚做的例子又可以,,你看看....

foxdb 看不了··· 呵呵