以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  fill的用法疑问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8251)

--  作者:唐尸三摆手
--  发布时间:2010/9/23 17:48:00
--  fill的用法疑问

请教用FILL填充的数据表,能否动态增加一列sn(也就是无重复的连续编号),请教如何生成

 

用了DataCols.Add对吗?


--  作者:czy
--  发布时间:2010/9/23 18:21:00
--  

没错,你试一下就知道了。


--  作者:唐尸三摆手
--  发布时间:2010/9/24 7:45:00
--  
C版主请指教一下思路,主要是序列号
--  作者:狐狸爸爸
--  发布时间:2010/9/24 9:02:00
--  

填充之后,再:

 

DataTables("xxx").DataCols.Add("序号",GetType(Integer))

for i as integer = 0 to DataTables("xxx").DataRows

    DataTables("xxx").DataRow(i)("序号") = i

next

 

不过foxtable已经有行号列了,你要这个还有啥意思啊?


--  作者:唐尸三摆手
--  发布时间:2010/9/24 9:54:00
--  
由于对生成的数据做二次处理,此过程中要求对每行数据 进行跟踪,如果使用行号列,处理后会导致数据顺序打乱,这样行号列会不会随之改变?
--  作者:mr725
--  发布时间:2010/9/24 13:52:00
--  

行号等于CurrentTable.position+1, 打乱顺序时,肯定随之改变!!!  还是用老大4楼代码确定行号吧。


--  作者:唐尸三摆手
--  发布时间:2010/9/24 14:11:00
--  

老大,四楼的代码为啥执行完报错,提示该表不存在“序号”列呢?


图片点击可在新窗口打开查看此主题相关图片如下:screenshot1.jpg
图片点击可在新窗口打开查看

 

 

该按钮代码如下:

Dim frmname As String=e.Form.name
Dim tbl1 As datatable = DataTables(frmname & "_table2")
tbl1.DataCols.Add("序号",Gettype(Integer))
For i As Integer = 0 To tbl1.DataRows.count-1
Dim dr As DataRow=tbl1.DataRows(i)
    dr("序号") = i
Next


--  作者:mr725
--  发布时间:2010/9/24 14:27:00
--  

测试正常~   可能你的表属性中有事件代码吧···


--  作者:唐尸三摆手
--  发布时间:2010/9/24 15:35:00
--  

没有,上述代码单独执行是没问题的,但是fill之后的数据表再执行这个代码就报错了


--  作者:mr725
--  发布时间:2010/9/24 17:32:00
--  
以下是引用唐尸三摆手在2010-9-24 15:35:00的发言:

没有,上述代码单独执行是没问题的,但是fill之后的数据表再执行这个代码就报错了


图片点击可在新窗口打开查看此主题相关图片如下:fill.gif
图片点击可在新窗口打开查看