yangjianlang 发表于 2015-12-2 09:42:00

TX Active 有删除指定起始行到终止行的函数吗？

TableDeleteLines()，只能删除当前行，不能删除指定行

iceman 发表于 2015-12-2 13:36:00

回复 1楼yangjianlang的帖子

需要使用 TXTextControl.SelStart 属性先设置到需要删除的行，再通过该属性设置回原位置。

yangjianlang 发表于 2015-12-2 15:30:00

回复 2楼iceman的帖子

不是太明白，可否给个范例，比如一个表格有5行，想删除第2，3，4行。

iceman 发表于 2015-12-3 09:00:00

回复 3楼yangjianlang的帖子

好的，我这边尝试制作后发送给你

yangjianlang 发表于 2015-12-7 14:51:00

回复 4楼iceman的帖子

亲，有方法了吗，热切盼望中.......

iceman 发表于 2015-12-7 17:08:00

回复 5楼yangjianlang的帖子

抱歉，这个问题我已经发送给厂商进行处理，有进一步反馈通知你。

iceman 发表于 2015-12-9 10:08:00

回复 5楼yangjianlang的帖子

删除指定行需要先选中该行，通过 TXTextControl.TableCellStart Property 可实现。

yangjianlang 发表于 2015-12-9 16:39:00

回复 7楼iceman的帖子

有没有办法用代码选定行？

iceman 发表于 2015-12-10 11:38:00

回复 8楼yangjianlang的帖子

选择一整行代码如下：

Private Sub SelectTableRow(TableID As Integer, Row As Integer)
    Dim iTableCols As Integer
    iTableCols = TXTextControl1.TableRows(TableID)

    TXTextControl1.SelStart = TXTextControl1.TableCellStart(TableID, Row, 1) - 1
    TXTextControl1.SelLength = TXTextControl1.TableCellStart _
      (TableID, Row, iTableCols) - _
      TXTextControl1.TableCellStart(TableID, Row, 1)
End Sub


选择一整列代码如下：

Private Sub SelectTableColumn(TableID As Integer, Col As Integer)
    Dim iTableRows As Integer
    iTableRows = TXTextControl1.TableRows(TableID)

    TXTextControl1.SelStart = TXTextControl1.TableCellStart(TableID, 1, Col) - 1
    TXTextControl1.SelLength = TXTextControl1.TableCellStart _
      (TableID, iTableRows, Col) - _
      TXTextControl1.TableCellStart(TableID, 1, Col)
End Sub

yangjianlang 发表于 2015-12-15 02:30:00

非常感谢，问题已解决
页: [1] 2
查看完整版本: TX Active 有删除指定起始行到终止行的函数吗？