以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]S elect语句的求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114807)
--  作者：huangfanzi
--  发布时间：2018/2/22 23:48:00
--  [求助]S elect语句的求助
Dim dt As DataTable \'定义一个数据表变量
cmd.C
cmd.CommandText = "S elect 往来合同号 As 采购合同号,物料分类 As 类别,牌号,备注 From {原料入库} Where 单据号 = \'" & MainTable.Current("单据号") & "\' ORDER BY 捆包号"
dt = cmd.ExecuteReader() \'生成一个临时表

这条查询语句中，如果所得到的“备注”列没有内容，希望查询出的dt表中不要出现“备注”列，请问老师这个功能能实现吗？谢谢！
--  作者：有点甜
--  发布时间：2018/2/23 9:14:00
--  

Dim dt As DataTable \'定义一个数据表变量
Dim cmd As new SQLCommand
cmd.CommandText = "Select 第二列,第三列 From {表A}"
dt = cmd.ExecuteReader() \'生成一个临时表
Dim fdr = dt.find("第三列 is not null")
If fdr Is Nothing Then
    dt.DataCols.Delete("第三列")
End If
msgbox(dt.datacols.count)