Foxtable(狐表)用户栏目专家坐堂 → [求助] 从服务器SQL数据表中带出相应内容


  共有3514人关注过本帖树形打印复制链接

主题:[求助] 从服务器SQL数据表中带出相应内容

帅哥哟,离线,有人找我吗?
leoli
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
[求助] 从服务器SQL数据表中带出相应内容  发帖心情 Post By:2020/5/25 22:52:00 [显示全部帖子]

你好,老师

表A的第一列 产品名称,第二列是描述。

如何根据第一列的产品名称,从服务器SQL数据表 database 中找出相应的描述,然后写入第二列中 ? 

谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/26 18:56:00 [显示全部帖子]

老师,这个d
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看
atabse 是外部数据表,在服务器上,还没有导入进来。如图出错了,可以不导入这个表直接从服务器中的sql中取值吗 ?

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/26 18:57:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:捕获2.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/26 21:53:00 [显示全部帖子]

老师,这有点不懂, 加了如下,还是错的,麻烦帮忙指点, 可否改成按钮代码 ?谢谢了。


Dim cmd As new SQLCommand
cmd.C

Select Case e.DataCol.Name
    Case "第一列"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("第一列") Then
            dr("描述") = Nothing
        Else
            Dim filter As String
            filter = "FNumber = '" & dr("第一列") & "'"
            pr = DataTables("database").sqlFind(filter)
            If pr IsNot Nothing Then
                dr("描述") = pr("Fname")
            End If
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/26 22:28:00 [显示全部帖子]

谢谢,可出现了个错误,
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
leoli
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:301 积分:2547 威望:0 精华:0 注册:2018/11/15 12:35:00
  发帖心情 Post By:2020/5/27 7:39:00 [显示全部帖子]

感谢。第一列有很多记录时,这个要一个个的点,可不可以将所有第一列中的记录一次性完成,不包含空白 ? 谢谢。

dim r as row = tables("xxx").current
if r isnot nothing then
Dim ld As string
Dim 
cmd As New SQLCommand
cmd
.ConnectionName = "数据源名称"
cmd.CommandText = 
"Select top 1 Fname From {database} Where "FNumber = '“ & r("xx列") & ”'"
ld = cmd.ExecuteScalar()
r("描述") = ld
end if


 回到顶部