能不能帮我改一下这个代码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能不能帮我改一下这个代码。

共有4173人关注过本帖树形打印复制链接主题：能不能帮我改一下这个代码。

hongye

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00

能不能帮我改一下这个代码。 发帖心情

Post By：2020/3/17 12:59:00 [显示全部帖子]

Dim dru1 As DataRow

dru1 = DataTables(fr & "订单核价系统").Find("客户 = '" & kh.Text & "'And 客户担当 = '" & kd.Text & "'And 类别 = '" & lb.Text & "'And 品名 = '" & pm.Text & "'And 款号 = '" & ks.Text & "'And 样衣款号 = '" & yk.Text & "'")

Dim tm As String = ProjectPath & "RemoteFiles\kt\" '指定模板文件

Dim Rgf As MSExcel.Range = Ws.Range("N2:P" & Rgh.Rows.Count-6)

Rgf.Value = New XLS.Picture(GetImage(tm & dru1("样衣款号") & dru1("款号") & ".jpg"))

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

这个代码怎么写？

hongye

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2020/3/17 15:51:00 [显示全部帖子]

能不能让图片按比例拉伸，不让图片变形呢？

hongye

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00

Post By：2020/3/17 16:11:00 [显示全部帖子]

如何知道图片大小？

下一主题 >> << 上一主题

主题：能不能帮我改一下这个代码。