如题，我在窗口中绑定关联表“包材入库明细表.破损记录”，然后在表B的表事件PrepareEdit中写入以下代码：If e.Col.Name = "物资名称" Then
Dim str As String
Dim str1 As String = Tables("包材入库明细表").Current("物资名称")
If str1 > "" AndAlso str1.Contains("套装") Then
Dim drs As List(Of DataRow)
drs = DataTables("成品BOM").SQLSelect("产品名称 = '"& Tables("包材入库明细表").Current("产品名称") &"'")
For Each r As DataRow In drs
If r("套装") = True Then
If str = Nothing Then
str = r("物资名称")
Else
str = str & "|" & r("物资名称")
End If
End If
Next
Tables("破损记录").Cols("物资名称").ComboList = str
Else
e.Cancel = True
End If
End If
以上代码是为了实现在破损记录表的物资名称列可以生成下拉框然后进行选择。
我现在想要实现在窗口绑定的关联表中控制物资名称列不能手动修改，只可以通过下拉框去选择，应该如何实现呢？
感谢！！
加好友 
发短信
Post By：2015/7/28 12:06:00 [显示全部帖子]
