主题：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

如果是sqlTable，这样写

Tables("窗口1_包材申请表").fill("select *,(select 名称 from {商品} b where a.商品id=b.商品id) as 名称 from {包材申请表} as a", "db", False)

如果是查询表sqlquery，可以用连接查询，速度会快一些。

http://www.foxtable.com/webhelp/scr/0688.htm

你在DataColChanged事件，查询和引用不就行了？

http://www.foxtable.com/webhelp/scr/1451.htm

DataColChanged事件，代码

Select Case e.DataCol.name
    Case "商品id"
        Dim cmd As New SQLCommand
        cmd.ConnectionName = "db"
        cmd.CommandText = "SELECT 名称 From {商品} Where [商品ID] = '" & e.DataRow("商品id") & "'"
        e.DataRow("名称") = cmd.ExecuteScalar
End Select