主题：生成相关表

 Click事件

If e.Col.Name = "表名" Then
    Dim r As Row = e.Row
    Dim dtb As New DataTableBuilder("temp" & r("表名"),r("表名") )
    Dim ary1() As String = r("列名").split(",")
    Dim ary3() As String = r("取值列").split(",")
    Dim str As String = "select [_Identify],"
    For i As Integer = 0 To ary1.Length -1
         str &= ary3(i) & " as " & ary1(i) & ","
    Next
    str = str.trim(",") & " fr-om {总表}"
    msgbox(str)
    DataTables("临时").Fill(str, False)
End If