表A的DataColChanged事件，有段组合的代码如下
Select Case e.DataCol.Name
Case "材料A","材料B","材料C","材料D","材料E","材料F"
Dim dr1 As DataRow = e.DataRow
Dim str As String = ""
If dr1.IsNull("材料A") = False Then
str &= dr1("材料A")
End If
If dr1.IsNull("材料B") = False Then
str &= "/" & dr1("材料B")
End If
If dr1.IsNull("材料C") = False Then
str &= "/" & dr1("材料C")
End If
If dr1.IsNull("材料D") = False Then
str &= "/" & dr1("材料D")
End If
If dr1.IsNull("材料E") = False Then
str &= "/" & dr1("材料E")
End If
If dr1.IsNull("材料F") = False Then
str &= "/" & dr1("材料F")
End If
e.DataRow("组合") = str.Trim("/")
End Select
这段代码如何在窗口中实现
附例子
表B的第一列有个窗口，在窗口中组合后，将内容导入表B的第一列
在窗口的AfterLoad事件里写代码如下：
Dim str As String = ""
For i As Integer = 1 To 6
Dim txt As String = e.Form.controls("combobox" & i).text
If txt > "" Then
str &= txt & "/"
End If
Next
e.Form.Controls("TextBox2").Text = str.trim("/")
如何在加个TextBox1组合在里面呢？
[此贴子已经被作者于2021/4/3 17:36:45编辑过]
加好友 
发短信
Post By：2016/3/15 20:29:00 [只看该作者]
此主题相关图片如下：规格20160315202752.png
