主题：不存在名称为""的datatable

我用Foxtable自带的示例文件，测试没问题的：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select * From {订单}"
dt = cmd.ExecuteReader()
Dim b As New CrossTableBuilder("统计表1", dt)
b.HGroups.AddDef("客户")
b.VGroups.AddDef("产品","产品_{0}")
b.Totals.AddDef("数量")
b.Build '生成统计表
MainTable = Tables("统计表1")

应该是列名出错。

Dim dt As DataTable

cmd.Connection Name = "Sale"

cmd.CommandText = "select  客户ID,sum(数量) as 数量 from{订单} group by  客户ID"

dt = cmd.ExecuteReader()

Tables("窗口1_Table1").DataSource = dt

For Each dr  As DataRow In Dt.DataRows

    dr("数量") = dr("数量") +100

Next

另cmd.Connection Name 区分大小写吗?如写作cmd.Connection Name = "sale"就不行!

数据源名称（如："Sale" <> "sale" ）是区分大小写的。我也常碰到写代码时不注意而重新改这个名称的。

这个顺序：

Tables("窗口1_Table1").DataSource = dt

For Each dr  As DataRow In Dt.DataRows

    dr("数量") = dr("数量") +100

Next

后面的form ....  next 好像就没有什么意义了。再说，对上面的dt(临时表)似乎不能编辑的吧。

测试出来了:跟数据源有关!

如是『订单』表是内部表,则没问题

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.CommandText = "select  客户ID,sum(数量) as 数量 from{订单} group by  客户ID"

dt = cmd.ExecuteReader()

For Each dr  As DataRow In Dt.DataRows

    dr("数量") = dr("数量") +100

Next

Tables("窗口1_Table1").DataSource = dt

收到，我测试一下看看。

呵呵,你试试,可以的

呵呵，看来不测试就是不行的···  ，是可以的！ 

 另外下面也是可以的呀，只是Dd 不能写成 dd ：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Connection Name = "Dd"
cmd.CommandText = "select  客户,sum(数量) as 数量 from{订单} group by  客户"
dt = cmd.ExecuteReader()
For Each dr  As DataRow In Dt.DataRows
    dr("数量") = dr("数量") +100
Next
Tables("窗口2_Table1").DataSource = dt    '这条放在for...next之前也是可以的。。。

几乎一样的语句,一时无事,一时有事,这说明肯定有Bug!

1、???的代码有问题，应该这个样:

For Each dr As DataRow In dt.Select("材料編號 Like 'P*%'")
    Dim dr2 As DataRow = DataTables("配合比").Find("clmq = '" & dr("材料名稱") & "'")
    If dr2 IsNot Nothing    
            dr("單位") = dr2("cldw")  
    End If
Next

2、沒""DataTable 的问题已经解决，等下次更新，下次你应该可以装上了。