主题：程序报错

窗口表的currentChanged事件，都加上判断

Dim dr As Row = e.Table.Current
If dr IsNot Nothing Then
    Dim khlh As String = " " & dr("客户料号") & " "
    Dim wslh As String = " " & dr("万盛料号") & " "
   
    Dim Filter As String = "(客户料号='"& dr("客户料号") &"' And 物料长代码='"& dr("万盛料号") &"') "
   
    DataTables("入库单对比窗口_Table1").LoadFilter = Filter '设置加载条件
    DataTables("入库单对比窗口_Table1").Load() '加载数据
End If