以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  材料组合  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160567)

--  作者:seal51
--  发布时间:2021/2/6 13:30:00
--  材料组合

图片点击可在新窗口打开查看此主题相关图片如下:qq截图2021020613283412134567.png
图片点击可在新窗口打开查看

如图,输入材料AA, 材料BB, 自动合成AA/BB
如何实现

--  作者:有点蓝
--  发布时间:2021/2/7 9:27:00
--  
参考:http://www.foxtable.com/webhelp/topics/1452.htm

Dim dr As DataRow = e.DataRow
Select
 Case e.DataCol.Name
    Case "
材料1","材料2"
        dr("组合") = dr("材料1") & "/" & dr("材料2")
End
 
Select
[此贴子已经被作者于2021/2/7 9:27:08编辑过]

--  作者:seal51
--  发布时间:2021/2/7 9:47:00
--  
没有表格,窗口仅有3个TEXTBOX,如何做?
--  作者:有点蓝
--  发布时间:2021/2/7 10:34:00
--  
"材料1","材料2"控件textchages事件合并后赋值给第三个控件
--  作者:seal51
--  发布时间:2021/2/7 10:45:00
--  
e.Form.Controls("TextBox3").VALUE  = (e.Form.Controls("TextBox1") .VALUE & "/"& e.Form.Controls("TextBox2").VALUE)
不知道是不是应该这样写,不过测试不对, 做个按钮可行, 不做按钮,只要TextBox1和TextBox填入数据,TextBox3立即显示处理如何写??

--  作者:有点蓝
--  发布时间:2021/2/7 10:57:00
--  
放到TextBox1和TextBox的textchages事件

e.Form.Controls("TextBox3").Text= (e.Form.Controls("TextBox1") .Text & "/" & e.Form.Controls("TextBox2").Text)

--  作者:seal51
--  发布时间:2021/2/7 10:59:00
--  
再做个按钮,复制TextBox3的内容,怎么写?
--  作者:有点蓝
--  发布时间:2021/2/7 11:01:00
--  
e.Form.Controls("TextBox3").copy
--  作者:seal51
--  发布时间:2021/2/7 11:03:00
--  
放到TextBox1和TextBox2的textchages事件里,对吧,TextBox3里加不加


--  作者:有点蓝
--  发布时间:2021/2/7 11:18:00
--  
7楼都说了按钮了,和textchages有嘛关系?