主题：选入死循环 请支招

主表是datatable（“进出库记录”)

 Select Case e.DataCol.Name
        Case "吨位"
            Dim sr1 As DataRow = DataTables("商务结算表").addnew()
            sr1("日期") = e.DataRow("日期")
            sr1("客户名称") = e.DataRow("客户名称")
            sr1("货物种类") = e.DataRow("货物种类")
            sr1("进出库分类") = e.DataRow("进出库分类")
            sr1("到发方式") = e.DataRow("到发方式")
            sr1("车船数")=e.DataRow("车船数")
            sr1("吨位") =e.DataRow("吨位")
    End Select

另外，对主表的 “吨位”列设置了 打开项目前重置