专家坐堂-[求助]窗口控件联动代码修改Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口控件联动代码修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148459)

--  作者：suliao9641
--  发布时间：2020/4/8 13:11:00
--  [求助]窗口控件联动代码修改

Dim str As String =e.Form.Controls("cplx").Value \'控件1值
Dim str1 As String \'控件2名称
Dim str2 As String \'控件2值
Dim str3 As String \'控件3名称
For Each ctl As WinForm.Control In e.Form.Controls \'遍历所有控件
If TypeOf ctl Is WinForm.ComboBox Then
str1 = e.Form.Controls(ctl.Name) \'
str2= e.Form.Controls(str1).Value \'效果:
str3 = "dw"&Right(str1,1) \' 控件2名称=”fjmc1” 有1-20个对应控件3名称=”dw1”有1-20个
If str2 = Nothing Then \'控件2值为空,那么控件3值为空
e.Form.Controls(str3).value = Nothing \'效果:控件3值为空
Else
e.Form.Controls(str3).value =DataTables("字典").Find(str&"_辅件_名称" = str2,str&"_辅件_单位") \'控件3值 \'
\'查找字典表 str&"_辅件_名称" 列对应 str&"_辅件_单位"的数据
End If
End If
Next
\'整体思路,当控件2选择后,根据其值不同在控件3中自动填入字典表的对应单位,目前的问题就是控件3赋值,代码写不好

--  作者：有点蓝
--  发布时间：2020/4/8 14:10:00
--
没看懂。截图说明一下

--  作者：suliao9641
--  发布时间：2020/4/8 14:59:00
--

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

第二处值改变，第三处值根据字典表查找自动填入
此主题相关图片如下：qq图片20200408145533.png

--  作者：suliao9641
--  发布时间：2020/4/8 15:00:00
--  回复：（有点蓝）没看懂。截图说明一下
其实就类似以前易表的 FINDTEXT功能

--  作者：有点蓝
--  发布时间：2020/4/8 16:02:00
--

控件2名称是不是都是fjmc开头,控件3是不是都是dw开头？如果不是，统一有规律的设置一下控件的命名

全局事件valuechanged

if e.sender.name like "fjmc*" then
Dim str As String =e.Form.Controls("cplx").Value
dim dr as datarow = DataTables("字典").Find(str & "_辅件_名称 = \'" & e.sender.text & "\'")
if dr isnot nothing then
  e.Form.Controls("dw" & e.sender.name.replace("fjmc","")).text = dr(str & "_辅件_单位")
end if
end if

--  作者：suliao9641
--  发布时间：2020/4/9 9:51:00
--  回复：（有点蓝）控件2名称是不是都是fjmc开头,控件3是...

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

蓝老师，这个代码还差一点点。
不加MessageBox点击后没有效果
如果加上MessageBox调试有值输入，但是同时会清空其他的值

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

--  作者：suliao9641
--  发布时间：2020/4/9 9:53:00
--

If e.sender.name Like "fjxx*" Then
Dim str As String =e.Form.Controls("cplx").Value
\'MessageBox.Show(str)
Dim str2 As String ="dw" & e.sender.name.replace("fjxx","")
MessageBox.Show(str2)
\'If str = Nothing Then
\' e.Form.Controls(str2).text = Nothing
\' Else
Dim dr As DataRow= DataTables("字典").Find(str & "_辅件_名称 = \'" & e.sender.text & "\'")
\' MessageBox.Show(str & "_辅件_单位")
If dr IsNot Nothing Then
e.Form.Controls(str2).text = dr(str & "_辅件_单位")
End If
\'End If
End If

--  作者：有点蓝
--  发布时间：2020/4/9 10:12:00
--
这个代码不可能会清空其它控件数据。肯定是其它代码的问题

--  作者：suliao9641
--  发布时间：2020/4/9 11:05:00
--
这里是全部代码

If e.sender.name Like "cplx" Then
For Each ctl As WinForm.Control In e.Form.Controls \'遍历所有控件
Dim cmb As WinForm.ComboBox
If TypeOf ctl Is WinForm.ComboBox Then
cmb = e.Form.Controls(ctl.Name)
Dim str As String =e.Form.Controls("cplx").Value
If str = Nothing Then
cmb.ComboList = Nothing
Else
If ctl.Name Like "bwmc*" Then
cmb.ComboList = DataTables("字典").GetComboListString(str & "_部位名称", str & "_部位名称 is not null")
ElseIf ctl.Name Like "fjxx*" Then
cmb.ComboList = DataTables("字典").GetComboListString(str & "_辅件_名称", str & "_辅件_名称 is not null")
End If
End If
End If
Next
ElseIf e.sender.name Like "fjxx*" Then
Dim str As String =e.Form.Controls("cplx").Value
\'MessageBox.Show(str)
Dim str2 As String ="dw" & e.sender.name.replace("fjxx","")
\'MessageBox.Show(str2)
\'If str = Nothing Then
\' e.Form.Controls(str2).text = Nothing
\' Else
Dim dr As DataRow= DataTables("字典").Find(str & "_辅件_名称 = \'" & e.sender.text & "\'")
\' MessageBox.Show(str & "_辅件_单位")
If dr IsNot Nothing Then
e.Form.Controls(str2).text = dr(str & "_辅件_单位")
End If
\'End If
End If
此主题相关图片如下：jdfw.gif

--  作者：suliao9641
--  发布时间：2020/4/9 11:06:00
--  回复：（有点蓝）这个代码不可能会清空其它控件数据。...
请老师再看看，哪里出了问题