共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求助，根据某一列数据，自动生成排序号的设置！
1楼
byzy3260 发表于：2009/3/24 15:06:00求助，根据某一列数据的变化，在“排序”列自动生成排序号如何设置！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
2楼
czy 发表于：2009/3/24 15:20:00DataColChanged事件。
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
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
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:00if 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
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]