主题：变量

判断一下

If t.current Is Nothing Then

    msgbox("表格没数据")

    return

End If

Dim t As Table = Tables("工序跟踪表")
If t.current Is Nothing Then
    msgbox("表格没数据")   
    Return
End If

MessageBox.Show(1)
Dim filter As String = "成品编码 = '" & t.current("成品编码") & "' and 生产批次 = '" & t.current("生产批次") & "'"
MessageBox.Show(2)
e.Sender.ComboList = DataTables("生产排产表").SQLGetComboListString("加工工序", filter)
MessageBox.Show(3)