共7 条记录, 每页显示 10 条, 页签: [1]

标题：求助，根据某一列数据，自动生成排序号的设置！

1楼

byzy3260 发表于：2009/3/24 15:06:00

求助，根据某一列数据的变化，在“排序”列自动生成排序号如何设置！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

2楼

czy 发表于：2009/3/24 15:20:00

DataColChanged事件。

if e.DataCol.Name = "第二列" Then
    Dim bjs As List(Of String) = DataTables("表A").GetUniqueValues("","第二列")
    For Each bj As String In bjs
        Dim drs As List(Of DataRow) = DataTables("表A").Select("", "第二列 DESC")
        For n As integer = 0 To drs.Count - 1
            drs(n)("排序") = n + 1
        Next
    Next
End If

3楼

byzy3260 发表于：2009/3/24 15:55:00

对不起，老师，不知什么原因，在表属性DataColChanged事件设置后没有成功！

4楼

kylin 发表于：2009/3/24 15:58:00

以下是引用czy在2009-3-24 15:20:00的发言：
DataColChanged事件。

if e.DataCol.Name = "第二列" Then
    Dim bjs As List(Of String) = DataTables("表A").GetUniqueValues("","第二列")
    For Each bj As String In bjs
        Dim drs As List(Of DataRow) = DataTables("表A").Select("", "第二列 DESC")
        For n As integer = 0 To drs.Count - 1
            drs(n)("排序") = n + 1
        Next
    Next
End If

学习了

5楼

czy 发表于：2009/3/24 15:59:00

首次设置后点一下重置按钮。
以后只要在第二列输入数据即可自动排号。

6楼

byzy3260 发表于：2009/3/24 17:14:00

再麻烦一下，第二列中空白时不参与排序的设置是什么？

7楼

czy 发表于：2009/3/24 17:37:00

if e.DataCol.Name = "第二列" And e.DataRow.IsNull("第二列") = False Then
    Dim bjs As List(Of String) = DataTables("表A").GetUniqueValues("","第二列")
    For Each bj As String In bjs
        Dim drs As List(Of DataRow) = DataTables("表A").Select("", "第二列 DESC")
        For n As integer = 0 To drs.Count - 1
            drs(n)("排序") = n + 1
        Next
    Next
End If

共7 条记录, 每页显示 10 条, 页签: [1]