主题：窗口表的数据源设置成临时表后合并模式不生效

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "select spdm,spmc,ysdm,ysmc,cmdm,cmmc fr+om {shangpin_vw} where spdm='" & spdm & "' order by ysdm,cmdm"

dt = cmd.ExecuteReader()

shang.DataSource=dt

With shang  '合并颜色列

    .MergeMode = MergeModeEnum.Standard

    .MergeCols.Clear()

    .MergeCols.Add("ysdm")

    .MergeCols.Add("ysmc")

    .MergeSort = "ysdm"

    .AllowMerge = True

End With

With shang  '合并颜色列

    .MergeMode = MergeModeEnum.Free

    .MergeCols.Clear()

    .MergeCols.Add("ysdm")

    .MergeCols.Add("ysmc")

    .MergeSort = "ysdm,ysmc"

    .AllowMerge = True

End With