主题：fill的用法疑问

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

 

用了DataCols.Add对吗？

C版主请指教一下思路，主要是序列号

由于对生成的数据做二次处理，此过程中要求对每行数据 进行跟踪，如果使用行号列，处理后会导致数据顺序打乱，这样行号列会不会随之改变？

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

此主题相关图片如下：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

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

Dim frmname As String=e.Form.name
Dim tbl As Table = Tables(frmname & "_table1")
If tbl.GetCheckedRows().count=0 Then
    messagebox.show("请选择工厂订单")
Else
    Dim gcr As List(of Row) = tbl.GetCheckedRows()
    Dim s As String
    For Each r As Row In gcr
        s = s & "'" & r("planid") & "',"
    Next
    Dim cmd As New SQLCommand
    Dim dt As datatable
    cmd.C
    cmd.CommandText = ";with cte As (select aec00000.planid,abe00000.*,cast(abe00000.num as numeric(18,4)) As CalcNum from abe00000 join aec00000 on abe00000.parentitem = aec00000.itemcode join eba00000 on aec00000.id_contract = eba00000.id_contract where aec00000.planid  in (" & s.Trim(",") & ") union all select cte.planid,a.*,cast(a.num * cte.CalcNum as numeric(18,4))from abe00000 a Join cte on a.parentitem  = cte.childitem)select a.planid,d.requiredate,a.parentitem,b.name,a.childitem,c.name,c.unit,a.CalcNum*d.plannum as totalnum from cte a,aaa00000 b,aaa00000 c,aec00000 d where a.parentitem=b.code and a.childitem=c.code and a.planid=d.planid union all select a.planid,a.requiredate,a.itemcode as parentitem,b.name,a.itemcode as childitem,c.name,c.unit,a.plannum as totalnum from aec00000 a,aaa00000 b,aaa00000 c where planid  in (" & s.Trim(",") & ")and a.itemcode=b.code and a.itemcode=c.code"
    dt = cmd.ExecuteReader()
    Tables(frmname & "_table2").Datasource=dt
End If

 

'添加列

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

 

 

 

 

 

老大，帮忙看一下啦

Dim frmname As String=e.Form.name
Dim tbl As Table = Tables(frmname & "_table1")
If tbl.GetCheckedRows().count=0 Then
    messagebox.show("请选择工厂订单")
Else
    Dim gcr As List(of Row) = tbl.GetCheckedRows()
    Dim s As String
    For Each r As Row In gcr
        s = s & "'" & r("planid") & "',"
    Next
    Dim st As String
    st = ";with cte As (select aec00000.planid,abe00000.*,cast(abe00000.num as numeric(18,4)) As CalcNum from abe00000 join aec00000 on abe00000.parentitem = aec00000.itemcode join eba00000 on aec00000.id_contract = eba00000.id_contract where aec00000.planid  in (" & s.Trim(",") & ") union all select cte.planid,a.*,cast(a.num * cte.CalcNum as numeric(18,4))from abe00000 a Join cte on a.parentitem  = cte.childitem)select a.planid,d.requiredate,a.parentitem,b.name,a.childitem,c.name,c.unit,a.CalcNum*d.plannum as totalnum from cte a,aaa00000 b,aaa00000 c,aec00000 d where a.parentitem=b.code and a.childitem=c.code and a.planid=d.planid union all select a.planid,a.requiredate,a.itemcode as parentitem,b.name,a.itemcode as childitem,c.name,c.unit,a.plannum as totalnum from aec00000 a,aaa00000 b,aaa00000 c where planid  in (" & s.Trim(",") & ")and a.itemcode=b.code and a.itemcode=c.code"
    Tables(frmname & "_table2").fill(st,"erp",True)
End If

 

 

 

 

怪事，改成fill后又可以附加那段添加序号列的代码了，原来可不是这样的，总提示什么

 

 

不支持基于sqlcommand生成的没有基表的数据什么的