Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT top 3 DISTINCT 省,市县,区号,邮编 From {行政区域}"
dt = cmd.ExecuteReader()

对于上面通过SQLCommand查询出来的结果集，如何取第一行，第一列的值呢，是写成
Dim dr As DataRow
dr= dt.DataRows(0)
dr(0) 或者 dr("省")  可以吗，正确的写法是？

dr= dt.DataRows(0)

Output.Show(dr("省"))

谢谢

不好意思，还需要继续询问：

对于下面的语句，窗口可以正常查询

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT top 3 name,mima From {yonghu}"
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr= dt.DataRows(0)
Output.Show(dr("name"))

但是如果是下面的语句，窗口就报错（查询条件加入了全局变量）

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT name,mima From {yonghu} where [gongshi_id]=\' " & Vars("gongshi_a") & "\'"
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr= dt.DataRows(0)
Output.Show(dr("name"))

此主题相关图片如下：1.jpg

不知道错误的原因？

单独执行 Output.Show(Vars("gongshi_a"))  是正常的输出结果

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT name,mima From {yonghu} where [gongshi_id]= \'" & Vars("gongshi_a") & "\'"
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr= dt.DataRows(0)
Output.Show(dr("name"))

已经好了，确实是[gongshi_id]= \'" &  写法的问题，原来写成=\' "   应该为= \'"

感谢程版主