谢谢大人。
此主题相关图片如下：qq截图20170813100134.png
此主题相关图片如下：qq截图20170813100122.png
我还遇到了一个问题，就是我设计生成的那个临时表，我只想让他生成其中的一部分行，而不是全部的表。我已经加了筛选按钮，应该怎么写代码，才能实现，只把筛选出来的行，出现在临时表中呢？
生成临时表的代码是：
Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("第一列",Gettype(String), 4)
dtb.AddDef("第二列",Gettype(String), 10)
dtb.AddDef("列a_名称",Gettype(String), 10)
dtb.AddDef("列a_内容",Gettype(String), 10)
dtb.AddDef("列b",Gettype(String), 10)
dtb.AddDef("列c",Gettype(String), 10)
dtb.Build()
Dim kms() As String = {"第三列_a","第四列_a","第五列_a"}
Dim kms2() As String = {"第三列_b","第四列_b","第五列_b"}
Dim kms3() As String = {"第三列_c","第四列_c","第五列_c"}
For Each dr1 As DataRow In DataTables("实验").DataRows
For i As Integer = 0 To kms.Length - 1
Dim dr2 As DataRow = DataTables("表D").AddNew()
dr2("第一列") = dr1("第一列")
dr2("第二列") = dr1("第二列")
'dr2("第六列") = dr1("第六列")
dr2("列a_名称") = kms(i)
dr2("列a_内容") = dr1(kms(i))
dr2("列b") = dr1(kms2(i))
dr2("列c") = dr1(kms3(i))
Next
Next
MainTable = Tables("表D")
加好友 
发短信
Post By：2017/8/12 12:43:00 [显示全部帖子]
