主题：SQLtable可以添加增加临时列吗

AfterLoad事件

Dim cmd As New SQLCommand
cmd.ConnectionName = "db"
Dim str = DataTables("窗口1_包材申请表").GetComboListString("商品id")
str = str.replace("|", "','")
cmd.CommandText = "SELECT * From {商品} Where [商品ID] in ('" & str & "')"
Dim dt As DataTable = cmd.ExecuteReader
DataTables("窗口1_包材申请表").DataCols.Add("名称", Gettype(String))
For Each dr As DataRow In DataTables("窗口1_包材申请表").Select("")
    Dim fdr As DataRow = dt.Find("商品id = '" & dr("商品id") & "'")
    If fdr IsNot Nothing Then
        dr("名称") = fdr("名称")
    End If
Next