主题：在哪里加入判断条件才严谨

   For Each r As Row In Tables("客服跟单").GetCheckedRows

        If r("订单状态") = "回单异常" Then
            Dim filter As String = "1=1"

 

 

 

        End If

那你就看看 filter 的条件是否正常

 

参考这里的写法。不会做，就上传具体例子测试。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=78112&authorid=0&page=0&star=2

 

汗，没问题啊。勾选的，满足条件的都拷贝过去了啊。

全局代码

 

Public ridx As Integer = -1

Public Sub MouseLeaveCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    ridx = e.Row
End Sub

Public Sub MouseEnterCell(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs)
    ridx = e.Row
End Sub

 

afterOpenProject

 

Dim t As Table= Tables("配载订单")
addhandler t.grid.MouseEnterCell, addressof MouseLeaveCell
addhandler t.grid.MouseLeaveCell, addressof MouseEnterCell

 

AfterSelRangeChanged

 

If ridx > 0 Then
    If  math.abs(e.OldRange.TopRow - e.OldRange.BottomRow) >= 1 Then
        If e.OldRange.BottomRow >= e.Table.Rows.count Then Return
        For i As Integer = e.OldRange.TopRow To e.OldRange.BottomRow
            e.Table.Rows(i).Checked = False
        Next
       
        For i As Integer = e.Table.TopPosition To e.Table.BottomPosition
            e.Table.Rows(i).Checked = True
        Next
    End If
End If

你可以删除空行

 

DataTables("配载订单").deletefor("项目 is null")

http://www.foxtable.com/help/topics/1842.htm

 

代码没问题，测试也没问题啊。

导入没问题啊。

没 、 问 、 题

 例子，没有任何问题。