主题：代码错误吗

DataTables("表C").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "日期,医院,医生,手术名称" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "日期,医院,医生,手术名称" '指定数据接收列
f.Append = false
f.Fill() '填充数据
for i as Integer = 0 to tables("表C").count - 1
    For Each cl As Col In tables("表C").Cols
        if cl.name <> "日期" and cl.name <> "医生" and cl.name <> "医院" and cl.name <> "手术名称"
            currenttable(i,cl.name)= DataTables("表A").Compute("Sum(数量)", "产品 = '" & cl.name & "'and 医生 = '" & currenttable(i,"医生") & "' and 日期 = '" & currenttable(i,"日期") & "'")
        end if
    Next
Next


此主题相关图片如下：未标题-2.jpg


请教各位这是怎么回事呢
红色代码有问题吗？

是的，已经处理好了，呵呵，红色代码是设置在按钮中的，忘了当前表不是表C了，顺便问一下
currenttable(i,cl.name)这个可以用table（表C）.????,怎么替代呢？
好像没这个属性似的

谢谢，这样不用MainTable = Tables("表C")也可以了，呵呵