Foxtable(狐表)用户栏目专家坐堂 → 这个代码怎么写??


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

主题:这个代码怎么写??

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3326 威望:0 精华:0 注册:2011/3/15 12:49:00
这个代码怎么写??  发帖心情 Post By:2025/1/16 11:08:00 [只看该作者]

cmd.CommandText = "SELECT 款图 Fro m {订单主表} where [_Identify] = " & r("_Identify").款图 IsNot NULL

 

 


图片点击可在新窗口打开查看此主题相关图片如下:提问图片2.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111847 积分:569389 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/16 11:25:00 [只看该作者]

cmd.CommandText = "SELECT 款图 Fro m {订单主表} where 款图 Is Not NULL"


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


加好友 发短信
等级:一尾狐 帖子:496 积分:3326 威望:0 精华:0 注册:2011/3/15 12:49:00
  发帖心情 Post By:2025/1/16 11:54:00 [只看该作者]

    Dim cmd As New SQ LCommand
    Dim ds As DataTable
    cmd.C
    cmd.CommandText = "SE LECT 款图 Fr om {订单主表} where [_Identify] = " & r("_Identify")
    ds = cmd.ExecuteReader()
    If ds.datarows.count > 0 Then
        If ds.DataRows(0)("款图") IsNot "NULL" Then
            Dim imageByte() As Byte = ds.DataRows(0)("款图")
            Dim ms As New system.IO.MemoryStream(imageByte) '将字节数组转换为二进制流
            Dim image As Image = Image.FromStream(ms)
            pbxz.Image = image
        Else
            pbxz.ImageFile = nim
        End If
        Dim rfz As String = r("合同数量")
        lb1.text = "款号: " + r("款号") + " 订单数量: " + rfz + r("单位") + vbcrlf + vbcrlf + "合同交期: " + r("合同交期") + " 担当姓名: " + r("业务担当")
    Else
        pbxz.ImageFile = nim
        lb1.text = ""
    End If

 

 


图片点击可在新窗口打开查看此主题相关图片如下:提问图片2.jpg
图片点击可在新窗口打开查看

 

 

这个代码怎么写,不然老是出错


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111847 积分:569389 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/16 12:03:00 [只看该作者]

……
    cmd.CommandText = "SELECT 款图 From {订单主表} where [_Identify] = " & r("_Identify") & " and  款图 Is Not NULL"
    ds = cmd.ExecuteReader()
    If ds.datarows.count > 0 Then
            Dim imageByte() As Byte = ds.DataRows(0)("款图")
……

 回到顶部