老师，
下面是prepare的完整code。
但是刚才不止一个地方在报错，问题都是出在有下拉选项的输入，只要是有下拉选项的地方，输入数值就会进入死机状态。
而且，这个问题之前是没有的。
Dim pr As Row
Dim edit As Boolean
If Forms("溶出数据处理").Opened Then '只能在处理窗口中修改
pr = Tables("溶出数据处理_Table1").Current
edit = True
Else If Forms("含量数据处理").Opened Then '只能在处理窗口中修改
pr = Tables("含量数据处理_Table1").Current
Else If Forms("有关数据处理").Opened Then '只能在处理窗口中修改
pr = Tables("有关数据处理_Table1").Current
Else If Forms("验证数据处理").Opened Then
pr = Tables("验证数据处理_Table1").Current
Else If Forms("标曲含量数据处理").Opened Then '只能在处理窗口中修改
pr = Tables("标曲含量数据处理_Table1").Current
edit = True
End If
If pr IsNot Nothing Then
Select Case e.Col.Name
Case "称样量"
If edit = True Then
If pr("完成") = "Y" Then
e.Cancel = True
End If
Else
e.Cancel = True
End If
Case "备注"
e.Cancel = False
Case Else
e.Cancel = True
End Select
Else
e.Cancel = True
End If
If e.IsFocusCell Then
If pr IsNot Nothing Then
Select Case e.Col.Name
Case "称样量"
e.Col.Combolist = ""
If e.Row("配制") <> "定量" Then
Dim filter As String = "溶液1批号 = '" & e.Row("溶液1批号") & "' And 溶液2批号 = '" & e.Row("溶液2批号") & "'"
e.Col.Combolist = DataTables("溶液数据").SQLGetComboListString(e.Col.Name, filter)
End If
End Select
End If
End If
加好友 
发短信
Post By：2023/4/7 10:18:00 [只看该作者]
